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ABSTRACT 



A study was conducted on the efiects of thermomechanical processing by warm 
rolling of a cast, aluminum-based discontinuous metal matrix composite. The material 
studied was a 6061 aluminum containing 10 or 15 volume percent alumina (AljOj) par- 
ticles. The material was cast and extruded by DL'RALCAN Inc. of San Diego, 
California. The subsequent processing included rolling at either 250'’C or 350°C with 
reheating and annealing always at SSO^C. The microstructure was studied by both op- 
tical and transmission electron microscopy. A significant improvement in the distrib- 
ution of the ^/jOj particles was achieved by the thermomechanical processing. It is also 
shown that a substantial grain refinement (from a grain size of 500 nm to 20 /im) ac- 
companied the improved particle distribution. The elevated temperature ductility and 
strength did not differ significantly with volume percent of Al^Oj added. Also, the details 
of the thermomechanical processing did not effect the strength at higher temperatures. 
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I. INTRODUCTION 



In recent years there has been a growing scientific, industrial and military' interest 
in the development of metal matrix composites (MMCs). MMCs offer an increase in 
modulus, tensile and compressive strengths greater than their unreinforced counterparts, 
improved friction and wear characteristics, reduced thermal expansion coefficients and 
other property combinations not obtainable in monolithic materials. A M.MC offers an 
advantage over polymeric based composites in high temperature applications and also 
possesses improved stability with respect to vacuum and ultraviolet radiation [Ref 1]. 

Composite materials are popular because one can design a new material to have a 
desired set of properties not found in any single existing material. The three categories 
of composites are: particulate; continuous fiber; and whisker reinforced composites. 
When using particles that are uniformly distributed, the composite will have isotropic 
properties, unlike the fiber- and whisker-containing materials. These particles may 
interact with dislocations or otherwise alter micro structure and thus cause an increase 
in strength [Ref 2]. 

Cast ceramic-particle reinforced Aluminum alloy composites are available in pro- 
duction quantity. They can be shaped by conventional metal working processes such as 
extrusion, rolling and forging. A1 6061 with Alumina is relatively easy to fabricate 

using casting methods. The wetting of the matrix material to particles is better with 
/l/jOj than with SiC. Adding large particles (3-50 /xm) increases the modulus of elasticity. 
Also, there is no chemical reaction or need for adherent-corrosive protection of /l/jOj. 
However, the as-cast A1 6061 - AliO^ material has poor ductility. 

Dural Aluminum Composites Corporation (DURALCAN), based in San Diego, 
California, has developed a proprietary casting process. Their pretreatment process pre- 
vents the molten aluminum from chemically reacting with the particles while still ensur- 
ing adequate wetting. The pretreatment also reduces dissolved gases [Ref 3]. 
DURALCAN produces castings of A1 6061 w'ith 10 to 20 volume percent (vol. pet.) 
Alf)^ up to eleven inches in diameter. They produce shafts, bars, rectangles and tubes. 
Their production capacity will increase to 25 million pounds with the opening of a plant 
in Canada [Ref 4]. With the high production capacity and excellent potential properties, 
there is a growing need for further research of MMC's. 
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This study is prirr- ily mici ^structural in nature. The purpose of this thesis was to 
study the effect of the thermomechanical processing on the evolution of the microstruc- 
ture and the development of mechanical properties in a 10 or 15 vol. pet. Al^O^ in 6061 
Aluminum composite material. 
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II. BACKGROUND 



A. THE MATRIX ALLOY 

The matrix material is usually tough and ductile while the particulate addition is 
comparatively brittle. The matrix supports the particles, allows the load to be transmit- 
ted to the particles and prevents the cracks formed in particles from propagating through 
the entire structure. The matrix itself should be strong to contribute to the overall 
strength of the composite. Matrices of composites are either polymers, ceramics or 
metals. The polymeric composites are useful at relatively low temperatures. Ceramics are 
hard and brittle, but have good properties at very high temperatures. Most .M.MC's can 
operate at high temperatures, but production is more expensive than with a polymeric 
matrix. [Ref 2] 

Discontinuously reinforced Aluminum MMC's offer a higher stiffness per unit 
weight as compared to unreinforced alloys. Cast Aluminum MMC's have a large cost 
advantage over those processed via powder metallurgical methods. [Ref 5] The subject 
of this research is a 6061 Aluminum alloy matrix. The 6XXX series (Al-.Mg-Si alloys) is 
amenable to heat treatment in order to improve mechanical properties. The 6XXX series 
combines medium strength, good ductility, formability and weldability with minor 
property losses along with good corrosion resistance. See Table 1 [Ref 6]. 



Table I. PROPERTIES OF UNREINFORCED ALUMINUM ALLOYS 



Alloy 


Nominal Com- 
position 


Density 

glcirt^ 


Elastic 

Modulus 

GPa 


Yield 

Strength 

MPa 


Ultimate 

Tensile 

Strength 

MPa 


Failure 

Strain, 

Percent 


2024 A1 


4.4 Cu-1.5 Mg 
-0.6 Mn 


2.77 


72.4 


414 


483 


13 


5083 A1 


4.5 Mg-0.35 Mn 


2.66 


69.3 


234 


317 


12 


6061 A1 


1.0 Mg-0.28 Cu 
-0.2 Cr-0.6 Si 


2.70 


68.3 


276 


310 


17 


7075 A1 


5.6 Zn-2.5 Mg 
-1.6 Cu-0.23 Cl 


2.80 


71.0 


503 


572 


II 
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A1 6061 is typically tempered to a T4 or T6 condition. The T4 is solution heat 
treated and naturally aged to a substantially stable condition while the T6 is solution 
heat treated and then artificially aged [Ref. 7j. The 6061 alloy is often formed via 
extrusion. This hot working process is illustrated schematically in Figure 1 [Ref 6]. 
Extrusion may involve area reductions as large as 25:1, corresponding to true strains of 
approximately 3.2 or more, in a single operation. 




Figure 1. Extrusion of a metal 
B. THE REINFORCEMENT 

There are four types of materials that offer competition to discontinuous MMC's 
(DMMC). They are: 

• Polymer based composites such as carbon fiber reinforced plastic (CFRP); 

• Unrcinforced, powder based metallic material (PM); 

• Continuous fiber reinforced MMC's; 

• Other cast or wrought metallic alloys. 

The three types of DMMC reinforcements are short fibers diameter, < 50 ^m 
long), whiskers 1 nm diameter, < 40 fj.m long) and particles (3-40 nm diameter). This 
study involves the particulate type DMMC. DMMC's offer a smaller gain in mechanical 
properties, while still having isotropic behavior, as compared to continuous fiber com- 
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posites. In aluminum alloys it has been demonstrated that the following variables influ- 
ence the micro structure of the alloy: 

• the size and shape of the reinforcement; 

• the volume fraction of the reinforcement; 

• the processing route for the composite; 

• the relative coefficient of expansion of reinforcement and matrix; 

• the type of alloy. [Ref. 8] 

The T/2O3 particles added are approximately 10 /im in diameter and irregularly 
shaped. The volume fractions were 0.10 and 0.15. The coefficients of expansion for 
and Aluminum are 6.7 and 25 .vl0“** cm/cm-°C, respectively, which is a factor of 
four difference [Ref 2). Table 2 shows the properties of various reinforcements for metal 
matrix composites [Ref 9 ]. The properties of the various forms of reinforcement 
(particulate and fiber) can be compared. 



Table 2. REINFORCEMENT FOR LIQUID-METAL INFILTRATION 





Strength 

(MPa) 


Modulus 

(GPa) 


Density 

(g'cm^) 


e % 


Diameter 

(/um) 


A/,0, (Saffil) 


2000 


300 


3.3 


0.67 


3 


A/,0, (FP) 


1380 


379 


3.9 


0.36 


20 


Continuous SiC 
(Nicalon) 


2760 


200 


2.55 


1.5 


10-15 


SCS-2 


3450 


407 


3.05 


0.8 


140 


Carbon 

P-55 


2068 


380 


2.25 


0.5 


10 


P-75 


2068 


517 


2.25 


0.42 


10 


P-100 


2240 


690 


2.25 


0.5 


10 
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C. THE COMPOSITE 

There are at least five problems to be dealt with in casting a MMC materia. . hese 

are: 

• wetting 

• dispersion 

• inclusions 

• porosity 

• segregation. 

Difficulty in wetting increases as the particle size decreases. This is due to the in- 
creased surface energy required as the particle penetrates through the liquid metal sur- 
face and thus finely divided powders tend to cluster together face treatment of 

particles may be necessary to obtain particle wetting and thereb .ieve an even dis- 
tribution when composites are produced via the melt stirring route. .niform dispersion 

is important for isotropy of properties. Inclusions, like oxide film on the surface, should 
be avoided. Aluminum will extract hydrogen from moisture in the environment. Hydro- 
gen has a high solubility in liquid Aluminum. Inclusions in the melt provide nucleation 
sites for hydrogen bubbles which result in porosity. Dendritic segregation can cause 
clustering even though the particles may have been thoroughly dispersed in the melt. 
During freezing, a dendritic arm that encounters a second phase particle will either en- 
trap it or push it aside. When freezing is complete, the particles pushed aside will be 
segregated into dendrite interstices [Ref 10]. DURALCAN's pretreatment in their pro- 
prietary casting process prevents a chemical reaction between the particles and the ma- 
trix alloy while still ensuring ado uate wetting, and reducing dissolved gases. 

In the past, 6061 has had various applications in cars, trucks and marine super- 
structures. The Navy has an interest in developing the 6061 MMC for use in bulkhead 
doors and related applications. They would be light, stiff and have a high thermal 
conductivity. There are now possibilities that MMC's based on 6061 can have primary 
and secondary structural applications in the aerospace industry [Ref 11]. MMC's have 
already been qualified for space flight as booms for the Space Telescope. There is also 
an interest in using MMC's on satellites as shields against pellet, nuclear or laser weap- 
ons [Ref 12]. 
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D. POST CONSOLIDATION TREATMENT OF METAL MATRIX 
COMPOSITES 

The purpose of post-fabrication processing is to develop a homogeneous distrib- 
ution of the particles throughout the matrix. DMMC's are sensitive to the distribution 
of the particles. The clustering of the particles causes a lowering of the strength and 
ductility of the composite. A common method, used for this material, is extrusion. 
However, other forms of treatment may involve forging or rolling. 

It has been recognized that a single warm temperature deformation process coupled 
with prolonged annealing gives a different microstructure from a sequential deformation 
/anneal/deformation/anneal process as used in this study. Further refinement of an 
extruded composite can be accomplished using rolling. The rolling portion of the T.VIP 
involved nine warm-rolling passes with increasing strain per pass, and used two different 
annealing and rolling temperatures. The ambient properties of ductility and fracture 
toughness were the focus of work by Schaefer who examined the properties of this ma- 
terial in the as-extruded condition with subsequent TMP by warm rolling [Ref 3]. The 
intent of the TMP w’as to improve the distribution of the /l/jOj in the matrix and to re- 
fine the grain size by the conclusion of processing. This thesis investigated elevated 
temperature testing of similarly processed materials. 
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III. EXPERIMENTAL PROCEDURE 

A. MATERIAL AND SECTIONING 

DURALCAN provided two samples of 6061 Aluminum with Al^O^ added. One 
contained 10 vol. pet. and the other 15 vol. pet. of AliOy The MMC material was ob- 
tained in both the as-cast and as-extruded conditions. 

The extruded rectangular bar had rounded corners and nominal dimensions 76 mm 
X 19 mm (3.0 in x 0.75 in). Two sections were cut using a power hack saw to dimensions 
of 38 mm x 66 mm x 19 mm (1.5 in x 2.6 in x 0.75 in) for use as rolling billets. [Ref 3] 
An extra piece was processed with the first two and had smaller sections cut from it at 
intermediate stages of the rolling process in order to facilitate optical and transmission 
electron microscopy (TE.M) for micro structural analysis. 

B. THERMOMECHANICAL PROCESSING 

In previous work by Schaefer [Ref. 3] and Magill [Ref. 13 | it was recommended that 
T.MP be conducted using a rolling temperature of 250*C, with annealing between passes 
at this same temperature. This was based on the observation of increased ductility during 
elevated temperature testing following a reduction in the rolling temperature from 
500°C to 350°C [Ref 13). 

Billets for processing were always solutionized at 560°C for 90 minutes in a Lindberg 
type B-6 Heavy Duty Furnace to ensure homogeneity of the matrix, "he billets were 
then water quenched to room temperature. The subsequent proceS' .g trials are de- 
scribed below. 

Initial attempts to roll at 250®C were unsuccessful as the billets split at their mid- 
plane (alligatoring). A second series of processes were then conducted utilizing a rolling 
temperature of 250'C but with annealing at 350*C for varying lengths of time. It became 
apparent as well that the rolling schedule required modification to reduce the strain per 
pass in the early stages of rolling. 

The rolling schedule used in most of the work is designated T.MP 1 and is summa- 
rized in Table 3. A modified version is summarized in Table 4. The results of the rolling 
trials are summaried in Table 5 for the Al-6061 10 vol. pet. AljO^ material in Table 6 for 
the Al-6061 15 vol. pet. material. Essentially, four of the seven combinations of 

AliOi content and TMP (designated subsequently as samples A, C, F and G) provided 
material for the remainder of this research. 
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Table 3. ROLLING SCHEDULE FOR TMP 1 



ROLL 

JU 


ROLL CHANGE 
(O.OSin + O.Olin) 


MILL SETTING 
(left/right) 


MILL 

GAP 

(in) 


SILICONE 

LUBRICANT 


1 


+ (8 + 0) 


4 4 


0.64 


NO 




-d + 2) 


2/2 


0.54 


NO 


3 


-d + 2) 


0,0 


0.44 


NO 


4 


-d + 2) 


6 6 


0.34 


NO 


5 


-d + 2) 


4 4 


0.24 


YES 


6 


-(0 + 6) 


6/6 


0.18 


YES 


7 


-(0 + 6) 


0 0 


0.12 


YES 


8 


-(0 + 5) 


3,' 3 


0.07 


YES 


9 


-(0 + 2.2) 


0.8, '0.8 


0.048 


YES 



Table 4. MODIFIED ROLLING SCHEDULE FOR TMP 2 



ROLL 

# 


ROLL CHANGE 
(0.08in + O.Olin) 


MILL SETTING 
(left/right) 


xMILL 

GAP 

(in) 


% 

STRAIN 
(per pass) 


1 


+ (8 + 5) 


1,T 


0.72 


4.0 


2 


-d + 0) 


1,1 


0.64 


11.1 


3 


-d + 2) 


7/7 


0.54 


15.5 


4 


-d + 2) 


6;6 


0.44 


18.5 


5 


-(1 + I) 


5/5 


0.35 


21.5 


6 


-d + 1) 


4/4 


0.26 


25.7 


7 


-(0 + 7) 


7/7 


0.19 


26.9 


8 


.(0 + 6) 


1/1 


0.13 


31.6 


9 


-(0 + 5) 


4'4 


0.08 


38.5 


10 


-(0 4- 3.2) 


0.8/0.8 


0.048 


40.0 



9 





Table 5. PROCESSING SCHEDULE FOR 6061 AL-ALUMINA 10 VOL. PCT, 



Roll and Anneal 
Temps 


10% Vol 


Size of Billet 


Strain 
per roll 


Comments 


Sample A 


0.75" X 1.5" X 2.6" 


1 


14.7 


Partial split @ 




(1/W S: 1.6) 


2 


15.6 


2nd, 3rd, and 4th 


Anneal @ 350“C 




3 


18.6 


rolls 


(30 min) 




4 


22.7 




Roll @ 250“C 




5 


29.4 


no further 


( 5 min) 




6 


25.0 


splitting 






7 


50.0 




(TMP 1) 




8 


41.7 








9 


31.4 




Sample B 


0.75" X 1.5" X 2.6" 


1 


14.7 


"alligator" 




(1,'w « 1.6) 


2 


15.6 


Complete split 


Roll/Anneal @ 




3 


18.6 


after 2nd roll 


250“C (30 min) 




4 


22.7 








5 


29.4 


no further 


(TMP 1) 




6 


25.0 


assesment of 






7 


50.0 


material 






8 


41.7 








9 


31.4 




Sample D 


0.75" X 1.4" X 5.7" 


1 


4.0 


"alligator" 




(l/w s; 4.0) 


2 


11.1 


Complete split 


Roll/Anneal @ 




3 


15.5 


after 2nd roll 


250“C (30 min) 




4 


18.5 








5 


21.5 


no further 


(TMP 2) 




6 


25.7 


assesment of 






7 


26.9 


material 






8 


31.6 










38.5 










40.0 




Sample F 


0.75" X 1.4" X 5.7" 


1 


14.7 


No splitting 




(l/w s; 4.0) 


2 


15.6 




Roll/Anneal @ 




3 


18.6 




350°C (60 min) 




4 


22.7 








5 


29.4 




(TMP 1) 




6 


25.0 








7 


50.0 








8 


41.7 








9 


31.4 
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Table 6. PROCESSING SCHEDULE FOR 6061 AL-ALUMINA 15 VOL. PCT. 



Roll and Anneal 


15% Vol 


Temps 


Size of Billet 


Strain 
per roll 


Comments 


Sample C 


0.75" X 1.4" X 5.5" 


1 


14.7 


No splitting 




(l, w s: 4.0) 


2 


15.6 




Anneal @ SSO’C 




3 


18.6 




(30 min) 




4 


22.7 




Roll @ 250“C 




5 


29.4 




( 5 min) 




6 


25.0 








7 


50.0 




(TMP 1) 




8 


41.7 








9 


31.4 




Sample E 


0.75" X 1.4" X 5.7" 


1 


4.0 


"alligator" 




(l;w 4.0) 


2 


11.1 


Complete split 


Roll, 'Anneal @ 




3 


15.5 


after 3rd roll 


250°C (30 min) 




4 


18.5 








5 


21.5 


no further 


(TMP 2) 




6 


25.7 


assesment of 






7 


26.9 


material 






8 


31.6 








9 


38.5 








10 40.0 




Sample G 


0.75" X 1.4" X 5.7" 


1 


14.7 


Partial split @ 3rd 




(1/W 25 4.0) 


2 


15.6 


roll 


Roll, 'Anneal @ 


3 


18.6 




250°C (60 min) 




4 


22.7 


no further 






5 


29.4 


splitting 


(TMP 1) 




6 


25.0 








7 


50.0 








8 


41.7 








9 


31.4 
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C MACHINING 



A diamond-tipped cutting tool reduced the amount of tool wear while cutting the 
harder 15 vol. pet. samples. The tension test coupons were machined to the specifica- 
tions given in Figure 2. 




Figure 2. Dimensions and tolerances for tensile test specimens. 

D. TENSILE TESTING 

The tensile load cell output of an Instron Model 6027 test machine was fed into a 
Hewlett Packard Model 3852A Data Acquisition Unit which produced load vs. time 
graphs. The tests were performed at 350"C using a Marshall Model 1137 Furnace rated 
to 1 100°C and controlled by a Eurotherm Model 199 temperature controller. There were 
five thermocouples used to monitor the temperature of the test sample. One was at the 
center of the coupon while the other two pairs were one-half inches above and below the 
centerline of the sample. The crosshcad speed was maintained at cither of two different 
strain rates, corresponding to 5.08 or 50.8 mm/min. The nominal strain rates were 
6.7.)fl0’^s"' and 6.7jfI0'^s"', respectively. Self-aligning grips were used to hold the tensile 
test specimens as in Figure 3 [Ref. 14]. 



12 



r 







Inside Grip Face 



Knurl Inside recess 

Mill recess to 0.025 depth 



Figure 3. Self-aligning grip assembly for tensile test. 

E. DATA REDUCTION 

Programs were developed for the UP-9000 computer for data analysis. Load vs. 
time data was collected during the tensile testing. 'I'o correct for grip slippage, the slope 
of the elastic region of the load vs. time graph was calculated. 1 he horizontal displace- 
ment from the elastic line on the load-time graph was used to determine and plot the 
engineering stress vs. engineering plastic strain. The software is in the developmental 
stages and the program codes for data acquisition and data reduction are enclosed in 
Appendix A. 

F. OPTICAL MICROSCOPY 

The samples were mounted in Buehler Sampl-Kwick thermoset plastic. The samples 
were cleaned with detergent, rinsed and dried between steps. Plastic gloves were worn 
when using the OPS colloidal silica due to its caustic nature. For steps four through six 
on Table 7, Plan, Mol and OP Chem papers, respectively, were used on the polishing 
wheels. These papers yielded a significant improvement in the quality of the prepared 
samples. 
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Table 7. OPTICAL SAMPLE PREPARATION 



STEP # 


POLISHING 

MEDIUM 


LOAD RPM 


LUBRICANT 


Tl.ME 


1 


240 GRIT 


light/ - 


water 


2 min 


2 


400 GRIT 


light, - 


water 


2 min 


3 


600 GRIT 


light' - 


water 


2 min 


4 


6 diamond 

paste (Metadi) 


light; 150 


DP Lubricant 
Red (Struers) 


3 min 


5 


3 fim diamond 
paste (Metadi) 


light; 150 


DP Lubricant 
Red (Struers) 


2 min 


6 


colloid ilica 


light/ 150 


Beulers 

Mastemet 


2 min 



Once the micrographs were obtain to r-. eal the distribution of the 
reinforment, the optical-microscopy samples were anodized to examine the microstruc- 
ture of the matrix. The etchant was a modified Barker's reagent (48% solution), 

46 cm^\ boric acid, 79 cm’; , 970 cm’) [Ref. 15]. 

G. TRANSMISSION ELECTRON MICROSCOPY 

The material sectioned after each rolling pass was saved for optical and Trans- 
mission Electron Microscope (TEM) work. The TEM samples were 3.0 mm disks, 0.2 
mm thick, and cut by a Metals Research, Ltd., S.M.D. Servomet ' rk Machine. The 
samples were mechanically polished down to a thickness of about .. tm and dimpled 
to about 26 ixta on a Gatan dimple _rinder. Model 656. The samples v .re finally thinned 
in a Gatan Dual Beam Ion Mill Model 600 at an accelerating voltage of 6 KV and a gain 
current of about 100 microamps. 

H. DISTRIBUTION OF ALUMINA PARTICLES 

A video camera was attached to the eye piece of an Zeiss IC.M 405 optical micro- 
scope. The field of view of the sample at a magnification of 540X was displayed on a 
Sony model PVM-1343MD color video monitor. The MicroScience I mage Measure® 
version 4.02 software package w'as used to determine the volume percentage of the 
Al-iOi . Each pixel was assigned a shade value from 0 to 255, with black being zero, white, 
255, and the shades of grey ranged from 1 to 254. The matrix (Al) ranged from 0-70 and 
the particles {AliO^ had shades of grey of approximately 62 at the edges to about 92 at 
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the center. The contrast bias was used to cancel all lighter shades from 92 to 2.55. This 
allowed only the particles themselves to be depicted on the screen with a totally white 
background. This allowed the program to determine the particles as a percentage of the 
total field of view. A hard copy of the .screen is illustrated in Figure 4 which shows an 
actual particle percentage of 15.7% for the 15 vol. pet. sample. 




Figure 4. Software display of distribution of /1/jO, 



IV. RESULTS AND DISCUSSION 



A. AS EXTRUDED CONDITION 

The extruded bar was sectioned to examine the transverse, top and longitudinal 
surfaces as shown in Figure 5 [Ref. 16 ]. The top surface was examined in the as- 
extruded sample by optical microscopy and samples were prepared subsequently after 
each rolling pass. Figure 6 shows the clustering of particles with some banding. On this 
scale it is not readily apparent that the particles are not randomly distributed. The ar- 
rows show examples of where particles are clustered together next to an area lacking 
particles. 



^ Transverse 
lend) surface 

Figure 5. Code .system for specimen orientation [Ref. 16]. 

B. PROCESSED CONDITIONS 

1. Effects of Processing on Microstructure 
a. Size and Distribution of Particles 



The development of the microstructure was characterixed at three dilFcrent 



stages: the initial stage (rolling passes one to three), the intermediate stage (rolling passes 
four to seven), and the final stage (rolling passes eight and nine). All the following 
micrographs show the results for material processed by TMP 1. After the first rolling 
pass on sample A (10 vol. pet. AljO,), the particle distribution can be seen in Figure 7. 
There is clustering of partielcs with areas that are apparently devoid of particles. Less 



Fracture 

surface-^ 




16 



banding is apparent when compared to the extruded condition. In the initial rolling 
passes, there is an increase in strain in each suceeding pass of the TMP and the particle 
clusters are being dispersed. However, while the clusters are being broken up, the parti- 
cles themselves remain intact. At higher magnifications, the extent of the clustering is 
more evident. Figure 8 shows the clustering of particles after the first rolling pass. At 
this magnification (540 X) the tight grouping of the particles is clearly seen with other 
areas having few particles. During the intermediate stage, as can be seen in Figure 9. 
clusters are "smeared" into a banded structure. Figure 10 show’s that the clusters them- 
selves are being broken up to some extent. After the ninth pass, a fairly random dis- 
tribution of the particles have been achieved as shown in Figure 11 and Figure 12. 

A similar development through the rolling can be seen in sample C (15 vol. 
pet. /l/jOj). Figure 13 shows the structure after rolling pass two. In Figure 14, after 
rolling pass five, the banding in the structure is more apparent. Figure 15 is just prior 
to rolling pass nine. There are still remnants of the banding but the tight clusters from 
the extruded condition are gone. Indeed, looking at rolling pass one and comparing to 
rolling pass nine there is a subtle change in the particle distribution. 

The particle size remains the same throughout. The particles are not frac- 
tured into finer pieces. The distribution of particles changes from a random distribution 
of clusters to a banded structure, and finally to a more evenly dispersed, less banded 
structure. 

b. Recrystallization of the Matrix 

It is evident from Figure 16 and Figure 17 that substantial grain refinement 
has resulted as well from the TMP. Compare the grain size of about 500 jim after the 
third rolling pass on sample C (15 vol. pet. AliOj) to about 20 A^m after rolling pass eight. 
This sample was annealed as well for 30 mins at 350°C after pass number eight. The 
microstructure at the early stages of processing (see Figure 16) is not w'ell defined except 
at the neighborhood of the particles where the localized contrast suggests the formation 
of local lattice rotation. These highly deformed sites in turn help to promote particle- 
stimulated nucleation during annealing, as shown in Figure 18. It is highly probable that 
this mechanism is the key to the grain refinement. Further evidence to confirm the 
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Figure 6. As-extruded top surface orientation of 10 vol. pet. Alumina (108X) 




Figure 7. Sample A after rolling pass one, 10 vol. pet. Alumina (54X). 



Figure 



8 . 



Sample C after rolling pass one, 15 vol. pet. Alumina (540X). 





Figure 9. Sample A after rolling pass six, 10 vol. pet. Alumina (54X). 
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Figure 10. Sample C after rolling pass three, 15 vol. pet. Alumina (540X). 




Figure 11. Sample A after rolling pass nine, 10 vol. pet. Alumina (54X). 
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Figure 14. Sample C after rolling pass five, 15 vol. pet. Alumina (108X). 




Figure 15. Sample C before rolling pass nine, 15 vol. pet. Alumina (54X). 
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Figure 16. Sample C after rolling pass three, 15 vol. pet. Alumina (200X). 




Figure 17. Sample C after rolling pass eight, 15 vol. pet. Alumina (200X). 
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Figure 18. Sample C after rolling pass three, 15 vol. pet. Alumina (200X). 



mechanism of particle-stimulated nucleation can be seen in the TEM micrograph 
(Figure 23) which shows extensive dislocation entanglement at the vicinity of a particle. 
A high dislocation density can be observed next to a large Al^Oi particle. This would 
provide the driving force for the particle-stimulated recrv'stallization. 

The e.xtent of recr>'stallization is still greater after rolling pass nine of sample 
F (10 vol. pet. AI 2 O 2 ) and G !5 vol. pct./l/^Oj) as seen in Figure 19 and Figure 20, re- 
spectively. Both of these hau ne hour of annealing between rolling passes. Comparing 
among Figure 19, Figure 20, and Figure 17, reveals that ' : structure is very similar in 
the 10 vol. pet. and 15 vol. pet. cases. 

The TEM micrograph of sample C, Figure 21, shows a fine particle pinning 
the grain boundary. In the matrix region the dislocation density is relatively ver>' low. 
It is similar to a fully recovered structure. The TEM micrograph of sample C in 
Figure 22 shows the fully recovered matrix with fine precipitates also present. The only 
notable difference is the precipitation of Mg 2 Si that appears to be coarser with the longer 
reheating interval, (one hour for F and G versus one-half hour for C). Thus, increasing 
the reheating interval for either the 10 or 15 vol. pet. of material does not alter signif- 
icantly the extent of microst; ture refinement, but just coarsens the precipitates of the 
jV/gjSi phase. 
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The structure uniformly recrystallizes vnth a grain size that corresponds to 
the interparticle spacing. It has been suggested that the recrystallizcd grain size can be 
predicted based on volume percent and particle size. From Figure 24 it can be seen that 
for a 10 /^m particle diameter we would expect a grain size of approximately 20 ^m for 
10 vol. pet. composite and a smaller grain size of about 17 /im for the 15 vol. pet. case 
[Ref. 17]. It is interesting to note that our result compares well with this prediction. In 
Figure 19 and Figure 20, we see a smaller grain sizu for the higher volume percent. The 
higher the volume percent of the particles, the lower the interparticle spacing and the 
finer the resulting grain. The more homogeneous the particle distribution, the more 
uniform the grain size. Both of these factors, then, contribute to a fine, uniform micro- 
structure. The matrix starts out with fairly large grains which are refined and recrystal- 
lized by the end of the TMP. 
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Figure 20. Sample G after rolling pass nine, 15 vol. pet. Alumina (200X). 




Figure 21. TEM micrograph, pinned grain boundai7, 15 vol. pet. Alumina 
(80,000X) 
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Figure 22. TEM micrograph, matrix fully recovered, 15 vol. pet. Alumina (80,000X) 




Figure 23. TEM micrograph shoeing high p, 15 vol. pet. Alumina (40,000X) 
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Volum* fraction 

Figure 24. Grain size vs. volume percent and particle diameter cf. 1“ 

2. Effects of Processing upon Mechanical Properties 
a. The Temperature Dependence on Ductility 

The as-cast material is extremely brittle. The as-extruded material has a 
ductility of about 10-15 percent elongation to fracture in the temperature interval of in- 
terest. A typical stress-strain curve from the current investigation is shown in Appendix 
B, and the ductility averaged between 20-60 percent elongation on this condition for the 
composite. 

The ductility-temperature response does not vary significantly with the 
change in volume percentage of AljOy The ductility peaks at approximately 375'’C for 
the 10 vol. pet. Al^Oi material (see Figure 26 in Appendix C). The corresponding tem- 
perature for the 15 vol. pet. sample was 425”C (see Figure 27). For sa pies F and G, 
which were annealed for one hour versus one-half hour for sample.'. A and C (see 
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Figure 28 and Figure 29), the ductilities and peak temperature were comparable. A 
comparison of the previous work using one-half hour anneal and the current work done 
using one-hour of annealing is shown in Figure 30 and Figure 31 [ref. 13]. The ductility 
was found to be less than in the previous research. The previous data show a slightly 
higher tensile ductility W'hen higher rolling temperatures are used. The ductility data for 
the current study are summarized in Appendix C. It is evident from these results that the 
TMP yields in an enhanced ductility when compared with the ductility of the as-extruded 
condition. 

b. The Temperature Dependence of Ultimate Strength 

The ambient temperature properties of this material is shown in Table 8 
[Ref. 3j. It is noteworthy that both the ambient strength and ductility are improved by 
the processing. 

The UTS decreases with increasing temperature as shown in Figure 32, 
Figure 33, Figure 34, and Figure 35 in Appendix D. As with the ductility, the ultimate 
strength (UTS) does not change significantly with the volume percentage of Alf^y 
Comparing to data from previous work, different annealing time does not effect the UTS 
at higher test temperatures [Ref. 13). Previous data showed an increase in strength at 
higher rolling temperatures (see Figure 36 and Figure 37). At lower rolling temperatures 
the specimens proved to be weaker at the lower tensile test temperatures. 



Table 8. MECHANICAL PROPERTIES FOLLOWING AGING TO PEAK 
STRENGTH 



Material Condition 


Yield 

Strength 

(MPa) 


Ultimate Tensile 
Strength (MPa) 


Percent 

Elongation 

(%) 


6061-T6 Unreinforced 


276 


310 


12 


Extmded 


328 


350 


5.6 


350“C Rolled 


375 


374 


7.0 



There are two general observations on the mechanical data: 

1. Reduced pass temperature yields a material weaker at low test temperatures but 
without any enhancement in ductility. 

2. Decreasing the anneal time between rolling passes increases the strength, and sig- 
nificantly enhances the ductility. Thirty minutes appears to be the optimum time. 
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C. SUMMARY 

This investigation was a study of the effects of TMP on the evolution of the micro- 
structure in an aluminum MMC containing either 10 or 15 vol. pet. Al^Oy The as-cast 
material is extremely brittle due to the non-homogeneous particle distribution in the 
matrix. When extruded at a 17 to 1 ratio, the particle distribution improved which re- 
sulted in higher strengths and ductilites. Thermomechanical processing by isothermal 
rolling at 250°C and 350°C further improved the particle distribution. 

This study has followed the development of the microstructure from the beginning 
to the end of a rolling sequence. The processing did homogenize the microstructure. The 
particle distribution w’as improved without any sign of particle fracture. The matrix was 
recrv'stallized by the TMP and the matrix grains were refined from 500 to 20 /jm. The 
mechanical properties were greatly improved when compared to the as-cast or extruded 
material. A longer anneal time between rolling passes seems to indicate a coarser 
micro structure with more time for grain growih and the precipitation of the iV/g^Si phase. 
The mechanical properties wxre enhanced in the ambient and elevated temperature tests 
[Ref. 3]. The lower pass temperature yielded a material weaker at low' test temperatures 
w ithout any enhancement in ductility. Decreasing the anneal time between rolling passes 
slightly increases the strength and significantly enhanced the ductility. 
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V. RECOMMENDATIONS FOR FURTHER STUDY 



1. Perform identical experimentation on a monolith 6061 and compare to the MMC 
results. 

2. Use TMP 2 (with the increasing strain per pass) and examine the micro structure 
and mechanical data as compared to TMP 1. 

3. Attempt TMP 2 at 350°C for both rolling and annealing until approximately the 
fifth rolling pass and then use only 250‘’C for the rest of the process. This should 
prevent the alligator cracks early in the processing. 

4. Increase the width to thickness ratio and decrease the length to width ratio to 3.0 
to prevent "alligator" cracking. This will allow for the partially split material to be 
sectioned off and used for optical examination while still having ample material 
remaining to continue the TMP and machine a sufficient quantity of coupons. 

5. Investigate the properties with an anneal time between rolling passes of approxi- 
mately twenty minutes. 

6. Investigate the properties of still higher volume fraction MMC. 
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APPENDIX A. PROGRAMS 



A. DATA ACQUISITION PROGRAM 

Due to the limitations of the Instron 6027 plotter, a program was written for the 
Hewlett Packard 3852A Data Acquisition Sysytem (HP) to acquire the load data from 
the Instron (Ref 18). This program was subsequently broken into two sub-programs 
with redundant sections removed and extra features added. This solved the problem of 
one program having inadequate memory to do all that was required. The first program 
called ACQR and the second is called REDUCE. 

1. Users Guide 

ACQR performs several functions. It will acquire the voltage signals from the 
Instron 6027 while plotting that load vs. time data simultaneously. The data can be 
graphed on the video screen or on the hard copy plotter. The data can then be stored 
on either the 3 1/2" floppy or hard disks. 

Once the HP system is powered up, it will ask if you wish to use the floppy or 
hard disk drive to load the program. Choosing the hard drive will give the menu for the 
installed programs. Select item 7 for 'OTHER'. The next menu choice will be 'ACQR'. 
The program then asks if you wish to see the operating instructions which are summa- 
rized below. The instructions show: 

1. Sample data 

a. Sample geometry and dimensions 

b. Identify sample 

c. Test temperature 

d. Cross head speed 

e. Load cell range 

f Tension or compression test 

g. Plotting parameters 

2. Running a Test 

a. Choose to view the data collection while in progress on the screen or plotter 

b. Start the test once the Instron is engaged 

c. Test complete 

3. Save and Verify Data 
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a. Store data - the program looks at the number of data points and allocates a 
sector on the disk with the exact size of memory required. The program tells you 
the name of the last program saved as a remitulcr. S'ou are filing the data in two 
stages. You arc giving the name that the file will have and you allocate the 
amount of memory space needed to accomodate the file. The (empty) file is 
created in the correct size required. 1 he second stage is the filing of the data into 
the empty file which had just been created in the name you have chosen. 

b. Verify data - once filed, u.sc 'RECALL OLD DATA' using the same name (the 
program will remind you what the last file was). If the recording was succesful 
you can rcpiot the raw data or use the REDUCE program later. 

Tlic program will list the current files in the drive that is in use. It will notify the 
user if the disk in use is full and that another must be used to save the intended data. 
The data can be stored in the voltage signals or converted into load data and filed. 

2. Source Listing 



10 I Proaran to acauire data bv tha HP 3852A fron the Instron G027 
IS ! Written 03-10-88 Ton Kelloao as INST 5027 
20 I Revised 09OCT90 by Paul Maori 

25 I Stored as ACQR 

30 DIM Straln(S000).Strass(S000>.SanDle nr*C50] ./^rea i ( 5000 ), Ex tens< 5000 ) 

35 1 note: Extens is used for inouttina strain aaoe data 

40 DIM X axis$C25] 

41 File nane*--N0NE YET" 



42 Startar: 



1 



43 

45 

45 

47 

48 

50 

51 

52 

53 

54 

55 
55 
57 
58- 

59 

60 

51 

52 



PRINTER IS 1 
KEY LABELS OFF 
CLEAR SCREEN 
PRINT " - 

PRINT " " 

PRINT " 

GOSUB Yes no 
IF An5uer5-"N“ 
OFF KEY 

ON KEY 1 LABEL 



ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 



Do you want ooeratlna instructions?" 



THEN GOTO Init sec 



LABEL 

LABEL 

LABEL 

LABEL 

LABEL 

LABEL 



ON KEY 8 LABEL 
KEY LABELS ON 



" Sample 
"Runnino 
" Werify 



•CONTINUE 
• QUIT 
- MAIN 



Data ’* GOTO Paae 1 
a Test " GOTO Paoa 2 
Data " GOTO Pace 3 
" GOTO Ms spin 
" GOTO Ms soin 
" GOTO Init sec 
GOTO Stopper 

MENU ” GOTO Main menu 



63 Ms spin: GOTO Ms spin 



64 Pape 1 : ! 

65 CLEAR SCREEN 
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BB 


PRINT 




OPERATING INSTRUCTIONS FOR OATA ACQUISITION" 




B7 


PRINT 


" 








B8 


PRINT 


" 


I. Chanae Current Set-up 


** 


B9 


PRINT 


" 


1 . 


<NEED SAMPLE DIMENSIONS) 


•• 


70 


PRINT 






“ sample aeometrv and dimensions <RECT> & type numbers < 


RETURN) ■ 










71 


PRINT 


" 


2. 


<IDENTIFY SAMPLE) - describe sample 


“ 


72 


PRINT 


" 


3. 


<CHANGE SET-UP) 


" 


73 


PRINT 


" 




A. <5AMPLE PARAMETERS) - 




74 


PRINT 


M 




- <CHANGE TEMP) 


tvne healer tom 


D " 
75 


PRINT 


•• 




8. <TEST PARAMETERS)- 




75 


PRINT 






- <CHANGE CROSS HEAD SPEED)” 




77 


PRINT 






- (CHANGE LC*'’ CELL RANGE)" 




78 


PRINT 






- (TENSION/C ?ESSI0N)“ 




79 


PRINT 






C. (PLOTTING PA ETERS)- 




80 


PRINT 


" 




- X ,Y axes laaels; X ,Y minimum and maximum values" 


81 


PRINT 




4, 


(SHOW SET-UP) - chanae mistakes if any 


•• 


82 


PRINT 




5. 


(SET-UP OK) - 




83 


PRINT 










84 


PRINT 


” 


SEE 


’Runnlna a test’ FOR THE INFORMATION NEEDED 


NEXT" 


85 


GOTO Ms 


spin 






85 


Pane 2: 




! 






87 




CLEAR 


SCREEN 




89 


PRINT 


" 


HOU 


TO START A TEST RUN" 




90 


PRINT 


" 


- 






91 


PRINT 


•* 


II. <RUN) 




92 


PRINT 


" 




- use plotter? 


(YES)" 


93 


PRINT 


" 




- load paper 


(RETURN) 


94 


PRINT 


" 




- choose pen 


draws axes" 


9B 


PRINT 


" 


ensure INSTRON printer is ’ONLINE’ or there’s NO 


DATA COMING" 


97 


PRINT 




when 


INSTRON started and ready to acauire data 


(RETURN)" 


93 


PRINT 


•• 


when 


INSTRON finished and test complete 


(TEST COMPLETE)" 


99 


PRINT 




1 . 


(MAIN MENU) 




100 


PRINT 


" 


2. 


(STORE DATA) 





- Do vou want to store data to the flooov disk? 
“ file to be used? 

“ create a new file? 

- Do vou want to store data? 



101 PRINT - 

102 PRINT " 

103 PRINT ■* 

104 PRINT " 

105 PRINT - 
10B PRINT - 

107 PRINT 

108 PRINT " SEE ’Verify data’ FOR THE INFORMATION NEEDED NEXT- 

109 GOTO Ms spin 

1 1 0 Pace 3 i 1 
CLEAR SCREEN 

• HOU TO VERIFY THE DATA UAS STORED ON THE FLOPPY DISK 



<YES> " 
Give it a nane" 
<YES>- 
<YES>- 



1 1 1 

112 PRINT 

113 PRINT 

114 PRINT 
I 15 PRINT 
IIB PRINT 



'III. <RECALL OLD DATA> 

' - recall data from flooDV? 

' file last used was: 



<YE5>‘ 
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H7 PRINT 
ve " 

118 PRINT 

119 PRINT 

122 PRINT 



file to be used? 

Do you want to use olotter? 
<MAIN MENU>- 

<CHANGE MAIN AXES> 



123 


PRINT " - create a 


new file? 


124 


PRINT ” - Do you want to use plotter? 


125 


PRINT " - <C0NTINUE 


PLOT) 


12G 


PRINT “ - <PRINT DATA) 


-ud' 






127 


PRINT " 


•* 


128 


PRINT •• 




129 


PRINT " END OF INSTRUCTIONS PRESS <C0NTINUE>" 


130 


GOTO Ms spin 




131 


Init sec: ! 




132 


Str ,rat e* 1 . 07 !nn/nin 




133 


Gauae-12.7 ! nauae lenath in nn 


134 


T start-0 




135 


T end-1000 




13B 


T total-1000 




137 


Load nin-0 




138 


Load nax-2 




139 


Fs load cell-20 




140 


Test .tenp-300 




141 


X axis$-"Tine» ninutes 




142 


Y ,.axis$-"Load , kN" 




143 


Te CO-1 ! TENSION ONLY 


TEST 


1 44 


Extensoneter$-’*Of f ** 




145 


Ex convert-1 




I4G 


Ex inter-0 




1 47 


Exp con-1 




148 


Exp int-0 




149 


Explot0-0 




150 


Exolo tnax-20 




151 


Wide-0 




152 


Thlck-0 




1 53 


GOSUB Show jet ^up 




154 


Maln^nenu: 1 




15G 


BEEP 2000,.! 




157 


OFF KEY 




158 


ON KEY 1 LABEL "Chanae 


Set-up" GOTO Set iip jnenu 


159 


ON KEY 2 LABEL "Show 


Set-up* GOTO Showboat _UD^Q 


160 


ON KEY 3 LABEL " QUIT- 


GOTO Stopper 


161 


ON KEY 4 LABEL * QUIT" 


GOTO Stopper 


162 


ON KEY 5 LABEL "Store 


Data" GOTO Store jJata 


163 


ON KEY 6 LABEL "Plot 


Data" GOTO Plot^data 


164 


ON KEY 7 LABEL "Recall 


Old Data" GOTO Recall jlata 


1G5 


ON KEY 8 LABEL "RUN* GOTO Set^up.ok 


16G 


IF <Y axis*-"Load. kN" 


OR Y ,axlsJ-"Stress ^ MPa") AND 



sane nane as abo 

<N0>" 

ver i f v" 
if needed" 
<YES>" 
<YES>" 

Gives hard coov of set 



35 



1G7 


ON KEY 7 LABEL “NEEO 


LOAOCELL 


GOTO Load cell 


1B8 


ON KEY 8 LABEL "OATA 


NEEOEO" 


GOTO 


Main _menu 


1B9 


BEEP 2000.. 1 








170 


BEEP 2500 .. 1 








171 


ENO IF 








172 


IF ( Samp le area-0 OR Gauqe-0 ) THEN 




173 


ON KEY 3 LABEL "NEEO 


SA. DIMEN. " 


GOTO 


S .area .1 


174 


ON KEY 8 LABEL "DATA 


NEEDED" 


GOTO 


Main menu 


175 


BEEP 2000.. 1 








17B 


BEEP 2500.. 1 








177 


END IF 








170 


IF Sample _nr$-"" THEN 








179 


ON KEY 4 LABEL " IDENT IFYSAMPLE " 


TO 


Samp 1 e _i d _m 


190 


ON KEY 8 LABEL "DATA 


NEEDED" 


'TO 


Main menu 


181 


BEEP 2000 .. 1 








182 


BEEP 2500.. 1 








183 


END IF 








184 


KEY LABELS ON 








185 


Mai n.menu.i die : GOTO Main_ 


_nenu_idle 






19B 


Sample id s: ! 









187 ON KEY 1 LABEL “ Ident i f ySano le" GOTO Sana le _id_a _2 

188 ON KEY 2 LABEL - Ident i f ySano le ” GOTO Sample. id_s_2 

189 ON KEY 3 LABEL "Chanqe Temp" GOTO Chq^les t ^temp 

190 ON KEY 4 LABEL "Chanqe Temp" GOTO Chq_les t _lemp 

191 FOR 0-5 TO 8 

192 ON KEY Q LABEL "Chanqe Olmen’s" GOTO S_area.2 

193 NEXT Q 

194 Sample_id_apin:GOTO Samp le_id_3p in 

195 Chq_test _temp : ! 

I 9B Var-Tesl _temp 

197 GOSUB Uar_chanqe 

198 Tes t _temp»Uar 

199 GOTO Sel_uD_menL' 

200 Samp le.ld_s _2 : I 

201 GOSUB Sanple_ld 

202 GOTO SeljJ 0 _menu 

203 Sample_id_n: ! 

204 GOSUB Sample.id 

205 GOTO liain_menu 
20G Sample.idt ! 

207 KEY LABELS OFF 

208 INPUT "Identify sample 50 characters max" , Samp le.nrS 

209 RETURN 

210 S.area J : I 

211 GOSUB S.area 

212 GOTO Main. menu 

213 S.area.2! ! 

214 GOSUB S.area 

215 GOTO Set .UP. menu 
21 B Show. set .up. a : ! 

217 GOSUB Show.set.up 
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218 GOTO Mainjnenu 
2 1 9 Recal l_data : • 

220 G0SU8 Re_data 

221 GOTO Plot_data 

222 Re^dataM 

223 GOSUB Uhich.nsu 

224 ON ERROR GOTO Input _arr 

225 INPUT -File to be used? Don’t tyoe suffix X ,Y ,Z or Q. •\Fi le_nane$ 

22G Xfile$-File_naneS8r"8" 

227 Yf I leS*Fi le_naneJ&'’C" 

228 ZfUeS-File^naneSi-Z" 

229 Qfile$-File^naneJ&-Q- 

230 ASSIGN @Path1 TO XfileS 

23t ASSIGN @Path2 TO YfileS 

232 ASSIGN @Path3 TO ZfileJ 

233 ASSIGN @Path4 TO QflleS 

234 Njpoints-5000ITHIS IS TO RESET FROM LAST N_points SO ALL DATA IS PLOTTED 
23G f ON ENO @Path3 GOTO Plot_data 

237 OFF ERROR 

238 ON ERROR GOTO 240 

239 ENTER ©Path! ;Strain( * ) 

240 OFF ERROR 

241 ON ERROR GOTO 243 

242 ENTER ©Pat h2 » St res s( * ) 

243 OFF ERROR 

244 ON ERROR GOTO 248 

245 E_c*Ex _convert 
24B E_i*Ex_inter 

247 ENTER ©Pat h3 ; Sano le_nr$ ,X_axisJ ^Y_a>. is5 ,Dia ,Uide .Thick .Gauge .T_start .T_end 
,Load_nin ,Load_nax ,Fs_load_cel 1 .Te_co ,Str_rate ,Ext ensoneterS ,E_c .E_i .Tes t _tenp 

248 OFF ERROR 

249 ON ERROR GOTO 252 

250 ENTER ©Path4 ;Extens( * ) 

251 OFF ERROR 

252 ASSIGN ©Path4 TO * 

253 ASSIGN ©PathI TO * 

254 ASSIGN @Path2 TO * 

255 ASSIGN ©Path3 TO • 

25G RETURN 

257 Input _err: I 

258 PRINTER IS 1 

259 IF ERRN-5B THEN 

2B0 PRINTER IS 701 

2G1 CAT 

2G2 FOR Q-l TO 5 

2G3 PRINT 

264 NEXT Q 

2G5 PRINTER IS 1 

2GG ENO IF 

2G7 PRINT USING •*©.#** 
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2G8 BEEP 

2G9 PRINT ERRMS 

270 GOTO Recall.data 

27 1 Store_data : ! 

272 G05UB Uhich^msu 

273 ON ERROR GOTO Slore^err 

274 PRINT “Name of last file is: ** i le_namaS 

275 INPUT "File to ba used? Don’t type suffix B ,C ,orZ . ” ,Flie_nano$ 

27G Xf ile$-File_name$^-8" 

277 Yf iie$-File_nane$&*'C" 

27B Zf ileJ*Fi le^naneSi"?" 

279 Of i le$*Fi le_name$i “Q" 

280 ASSIGN ©PathI TO Xfile$ 

281 ASSIGN 0Path2 TO YfileS 

282 ASSIGN @Path3 TO ZfileS 

283 ASSIGN 0Path4 TO Qfile$ 

284 ON END 0Path4 GOTO Main_nenu 

285 OFF ERROR 

29G ON ERROR GOTO 288 

287 OUTPUT ©Pathl ;Strain( » ) 

288 OFF ERROR 

299 ON ERROR GOTO 291 

290 OUTPUT 0Path2;Stress( • ) 

291 OFF ERROR 

292 ON ERROR GOTO 29B 

293 E_c“Ex_convert 

294 E_i-Ex_inter 

2 95 OUTPUT 0Pat h3 1 Sano 1 e_nr$ ,X _ax is$ ,Y_a>.is$ ,Dia ,Uide , Thick ,Gauqe ,T_start ,T_en 

d ,Load_min ,Load jnax ,Fs_load_cell ,Te_co ,Str_rate ,Ex t ensonet er$ ,E_c ,E_i ,Test_tep>o 
29G OFF ERROR 

297 ON ERROR GOTO 300 

298 OUTPUT 0Path4;Extens( * ) 

299 OFF ERROR 

300 ASSIGN 0Path4 TO • 

301 ASSIGN ©Pathl ♦ 

302 ASSIGN 0Path2 " * 

303 ASSIGN 0Path3 TO • 

304 MASS STORAGE IS ” :CS80 ,700 J " 

305 GOTO Main_nenu 

305 Store_err: ! 

307 PRINTER IS 1 

308 IF ERRN-5G THEN 

309 OFF ERROR 

310 PRINT "File not found. Below is a list of current files." 

311 CAT 

312 FOR 0-1 TO 5 

313 PRINT 

314 NEXT Q 

315 PRINT "Would you like to create a new file? <Y> if this is new data" 

315 GOSUB Yes.no 

317 IF Answer$-"Y" THEN 
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318 PRINT "Insert data disk" 

319 BEEP 

320 Newsfile: ! 

321 ON ERROR GOTO Disk^full 

322 PRINT “Creatinq new Files " 

323 CREATE BOAT Fi le_nafne$&"B" ,0 ,N .points 

324 CREATE BOAT Fi lo_nane58r"C “ ,8 ,N jjoint s 

325 CREATE BOAT Fi le_nane$&"Z"J J 00 1 ITS STILL LESS THAN 1000 

32B CREATE BOAT Filo.natnoSSr-Q’* J ,N jjoints 

327 OFF ERROR lN_points is the t of data points acouired 

328 ELSE 

329 GOTO Store^data 

330 END IF 

331 ELSE 

332 PRINT ERRM$ 

333 OFF ERROR 

334 PRINT "Do you want to try aqain?" 

335 GOSUB Yes_no 

33G IF Answer$*"Y" THEN Storojdata 

337 GOTO Main_nenu 

338 END IF 

339 PRINT USING 

340 BEEP 

341 GOTO Store_data 

542 Disk.full: ! 

343 OFF ERROR 

344 PRINT "This disk is full. Do you want to replace it with a new disk?" 



345 


GOSUB Yes_no 






34G 


IF Answer$*"N" THEN Store_data 




347 


GOTO Newsfile 






348 


Pr int_data: ! 






349 


PRINTER IS 701 






350 


GOSUB Show_set _uo_2 






351 


PRINTER IS 1 






352 


GOTO Mainjnenu 






353 


Plot_data: 1 






354 


GOSUB Plot_set_uD 






355 


L_type»0 






356 


Next_curve: 1 






357 


L_tyDe-L_type+ 1 






358 


LINE TYPE L..type 






359 


OFF KEY 






360 


ON KEY 1 LABEL “Cont inuePlot " GOTO 


Plot_data_2 


361 


ON KEY 2 LABEL "CHANGE 


MAINAXES" 


GOTO Plot_axes 


3B2 


ON KEY 3 LABEL " 


- GOTO Plot Jata^idle 


363 


ON KEY 4 LABEL "NEU 


PLOT- GOTO 


Ma ln_nenu 


364 


ON KEY 5 LABEL "Main 


Menu" GOTO 


Mainjnenu 


365 


ON KEY 6 LABEL "Print 


Data" GOTO 


Pr int_dat a 


366 


IF Ex tensoneter$»"ON" 


THEN 




367 


ON KEY 7 LABEL "LOAD 


STRAIN" 


GOTO Plot_data_3 


36B 


ELSE 
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3B9 


ON KEY 7 LABEL " 


” GOTO Plot_data_ldle 


370 


ENO IF 




371 


ON KEY 0 LABEL “LOAO- 


TIME" GOTO Plot .data _2 


372 


KEY LA0CL5 ON 





373 Plot _data_ldlaJGOTO P lot _data_ldle 

374 Plot^axoa: I 



375 


GOSUB Axea_u 




37S 


GOSUB Start_t 




377 


60SU0 Plot_aet 


_UD 


378 


GOTO Plot^data 


_2 


379 


Sub_axea: ! 




380 


GOSUB Ex_plt_cnv 



381 GOSUB Plot^set^UD 

382 GOTO Plot_data_2 

383 Plot_data_3: I 

384 GOSUB Pen_seiect 

585 KEY L.^BELS OFF 

38B IF Answer$-”Y- THEN GOSUB Pen^seiect 

387 FOR I-l TO 5030 

388 Exoiot “Ext ens( I > »ExD_con+Exo_in t 

389 IF I-I OR Exolot«T_start THEN MOUE Exo io t ,S t r es s( I ) 

390 IF ExDlot<T_5tart OR Exo lot > T_end THEN End ^lot_3 

391 PLOT Exoiot ,StreS5< I ) 

392 End_plot.3: f 

393 NEXT I 

394 IF An3wer$--Y“ THEN PEN 0 

395 GOTO Next_curve 

39G Re_data_l : ! 

397 GOSUB Re_data 

398 Plot_data_2: ! 

399 IF Uhichjjltr$-”Plotter" THEN GOSUB Pen^select 

400 KEY LABELS OFF 

401 FOR I-l TO 5000 

402 IF I*N_points THEN GOTO Next_curve 

403 IF I-l OR Strain( I)-T_start THEN MOUE Strain< I) ,Stresa( I > 

404 IF StraindKT ‘art THEN End.curve 

405 IF Tej:o-l ANC 3 trass( I )>Load_nax OR St a ( I ) ' ^oad_n 1 n > THEN GOTO End 
curve 

40G IF Te_co-3 AND ( Streas( I ><Load_nax OR SI a a ( I )>Load_ni n > THEN GOTO End 
curve 

407 IF Strain( I »T_end THEN 

408 1-5000 

409 GOTO End_curve 

410 ENO IF 

411 IF I>Njpointa AND Strain(I)-0 THEN 

412 GOTO Next_curve 

413 ENO IF 

415 PLOT Strain(I),Straaa(I ) 

41G End_curve: 1 

417 NEXT I 

410 IF Anawer$-"Y- THEN PEN 0 

419 GOTO Nex't^curve 

420 Show_set juD_l : ! 
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A2I GOSUB Shou_set_uo 

422 GOTO Main_nenu_idl ft 

423 Sloooar: I 

424 PRINTER IS \ 

425 KEY Li^BELS OFF 

42G PRINT "Do you want to raduco data or uaa anothar Droqran?" 

427 GOSUB Yea_no 

428 IF Anauer$-"Y" THEN LOAD "MSLABS" 

429 STOP 

430 Load_cell: I 

431 KEY LABELS OFF 

432 INPUT "Uhat is the full-scale load value in kN7 " ,Fs_load_cel 1 

433 GOTO liain^nenu 

434 S_area: ! 

435 OFF KEY 

43G FOR Q-1 TO 4 

437 ON KEY Q LABEL "round aanole" GOTO Round 

438 ON KEY 0+4 LABEL "rect. sanale” GOTO Rect 

439 NEXT Q 

440 KEY LABELS ON 

441 S_area_idle ‘.GOTO S_area_idle 

442 Round : ! 

443 KEY LABELS OFF 

444 INPUT "Sanole diameter ^ nm?"^Dia 

445 Sano la_araa-( PI/4 )•< 0la^2 > 

44G GOTO G^lenqth 

447 Rect: I 

448 KEY LABELS OFF 

449 INPUT "Samole width, mm?" , Wide 

450 INPUT "Sample thickness, mm?", Thick 

451 Samol e_area*Ui de*Thick 

452 G_lenqth: ! 

453 PRINT "Default qauqe lenqth is ",Gauqe;" mm. Hit <RETURN> to accept" 

454 INPUT "Gauqe lenqth, mm'?" ,Gauqe 

455 RETURN 

45G Show_set _uD : 1 

457 PRINTER IS 1 

458 Show_set _up_2 : I 

459 PrTnT using 

460 PRINT "Current set up is as follows:" 

4G1 PRINT " Sample Parameters:" 

4G2 IF Sample_nr$-“" THEN 

4G3 PRINT " Samole unnamed" 

4G4 ELSE 

465 PRINT " Sample: “;Samole_nr$ 

4GG END IF 

4G7 IF Gauqe <>0 THEN 

4G8 PRINT " Gauqe lenqth is “jGauqe;" mm" 

469 ELSE 

470 PRINT " No qauqe lenqth specified" 

471 END IF 

472 IF Oia<>0 THEN Sample_area-< PI/4 )*< Dia"2 ) 
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473 


IF Thick<>0 


474 


IF 5anole_ai 


475 


IF DiaOO 


47G 


PRINT ” 


477 


ELSE 


478 


PRINT " 


479 


END IF 


480 


PRINT " 


481 


ELSE 


482 


PRINT " 


483 


END IF 


484 


PRINT 


485 


PRINT " T 


48G 


PRINT " 


487 


PRINT " 


488 


PRINT " 


489 


IF Te_co*l 


490 


IF Te^co-2 


491 


IF Te_co»3 


492 


PRINT " 


493 


IF Extensoni 


494 


PRINT " 


495 


PRINT - 


495 


PRINT " 


497 


END IF 


498 


PRINT " 


" K" 




499 


PRINT 


500 


PRINT " P 


501 


IF X_axis$- 


i ni sh 


t ine " ; T_eni 


502 


IF X_axis$« 


ini sh 


tine " ; T_en( 


503 


IF X axisS- 



Usinq round sanole yith a dlanater of "iDiai" tnn" 

Usinq flat sanole "jUide;" nn uide X "»Thick;"nn thick" 
Sanole area is " l Sano le_area i" nn^Z" 

Sanole dlnensions are inconolete" 



Crosshead soeed" ; Str_rat e ; " nn/nin" 

Full-scale ranqe of load coll is sot for " ; Fs _load_cel 1 i " kN" 
Hold tine at finish " i Hold_t ine ? " nin" 

THEN PRINT " Tension only lest" 

THEN PRINT " Tens ion/conoress ion test" 

THEN PRINT " Conoression only test" 

Ex tensoneter/Strain Gaqe is " ; Ext ensoneterS 
eter$-"0n" THEN 

Ext ensoneter/S trai n qaqe conversion factor is ";Ex_convert 
Ex tensoneter/Strain qaqe interceot is ";Ex_inter 
Strain shown will be fron ";Exolot0;" to ";ExolotnaA 

Test tenoerature is " ; Test _teno i " deq C or " ; Tes t _t eno + 273 . 1 G ; 



THEN PRINT " Start tine ";T_start;" nin F 

THEN PRINT " Start tine ";T_start;" sec F 

* THEN PRINT " Startinq Elonqation " ,T_start 

Startinq Elonqation " ,T_ 
,T_sta»- Finish st 
iL ;_nin I * volt 
;Load_nin; * 
kN to 



nn Finish Elonqation "»T_end;" nn" 

504 IF X_axis$-"Elonqation, Percent" THEN PRINT " 
start;" 7 . Finish Elonqation ";T_end;" X" 

505 IF X_axis$*"Strain" THEN PRINT " Startinq strain 

rain ";T_end 

50B IF Y_axis$-"Volts OC" THEN PRINT " Y-axis nininun is 

s and Y-axis naxinun is " ;Load_nax ; " volts" 

507 IF Y_ax i "Mi 1 1 ivol t s DC" THEN PRINT " Y-axis nininun is 

nillivolts and Y-axis naxinun is ";Load_nax;" nillivolts" 

508 IF Y_axi s$*"Load , kN" THEN PRINT " Load ranqes fron " ,Load_nin; 

";Load_nax;" kN < neq value neans conpros s ion )" 

509 IF Y_axis$-"Stress , MPa" THEN 



510 PRINT • 

511 PRINT - 

512 END IF 

513 RETURN 

514 Set_UD_nenu: 



Stress ranqes fron *,Load_nin;" MPa to ";Load_naxi" MPa' 
(neq value neans conoross ion )" 
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515 

516 

517 

518 

519 

520 

521 

522 

G23 



BEEP 2000 ,. 2 
BEEP 2 100,. 2 
OFF KEY 

GOSUB Show_5«tjup 
ON KEY 1 LABEL ”Sanole Parans" 

ON KEY 2 LABEL -SanDle Parana” 

ON KEY 3 LABEL "Teat Parana" 

ON KEY 4 LABEL "Teat Parana" 

ON KEY 5 LABEL "Plot t inqParans" 



GOTO SanDle_id_a 
GOTO Sanole_ld_5 
GOTO Teat _jarana 
GOTO Teat _parana 
GOTO Axes units 



524 

525 

526 

527 

528 

529 

530 

531 

532 
R X_ 

533 

534 

535 



ON KEY C LABEL 
ON KEY 7 LABEL 
ON KEY 8 LABEL 
IF Sanole_nr$-" 



"P I o 1 1 1 r\QParana " GOTO Axea__unlta 
GOTO Sot_uo_ldle 
'SETUP OK" GOTO Main_nonu 
* THEN ON KEY 8 LABEL " IDENTIFYSAMPLE' 



IF <Y_axla$-"Load, kN" OR 
ON KEY 8 LABEL "NEED 
BEEP 2000,.! 

END IF 

IF ( Y_axl aJ-"Strea5 , MPa 
<ia$*"Strain” ANO Gauqe-0 
ON KEY 8 LABEL "SAMPLE 
ENO IF 

IF ( X_ax ia$*"Elonqat ion , 



Y_ax I a$-"S troaa , MPa") ANO 
LOADCELL" GOTO Load cell 



GOTO SanDle_ld_5 
Fa load cell-0 THEN 



ANO Sano 1 e_area-0 ) OR < X_axl 5 $-"Elonqat ion , 
THEN 

OIMEN." GOTO S area 2 



OR X_ax i a$* "E 1 onqa t ion , 7." OR X_ax i aS* "S tra in 



) ANO Str_rate-0 THEN 



536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 
552 
563 



ON KEY 7 LABEL "X-head Soeed" 
ON KEY 8 LABEL "" GOTO Ratea 
ENO IF 



GOTO Ratea 



KEY LABELS ON 
Set juD_idle : GOTO 
Teatjparana: ! 



Set _UD idle 



"" GOTO Teat jDar_aoin 
Teat _par_3o in 



ON KEY I LABEL 
ON KEY 2 LABEL 
ON KEY 3 LABEL 
ON KEY 4 LABEL 
ON KEY 5 LABEL 
FOR 0-6 TO 8 
ON KEY 0 LABEL 
NEXT 0 

Test _par _ao in : GOTO 
Extoqqle_l : I 

GOSUB Exjoqqle 
GOSUB Ex_cnv 
GOSUB Ex j 3 lt_cnv 
GOTO Set_uo_nenu 
G_l_aetjjD: ! 

Uar-Gauqe 

PRINT "Chanqlnq qauqe lenqth 
GOSUB Var_chanqe 
Gauqo-Uar 
GOTO Set_uD_nenu 
Start.t: 7 

Uar-T atart 



Chanqe X-head U" 

Chanqe Load Cell 
Tena ion/Conoreas ion" GOTO 
Hold Tine" GOTO Holds 
Extens. Toqqle" GOTO Extoqqle_l 



GOTO Rates 
GOTO Load_cell 
Ten con 
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SB 4 


PRINT "Chanqinq nininun 


x-axls 


value I " 


5B5 


GOSUB Uar_chanqe 






566 


T_s tart «<Jar 






5B7 


Var«T_end 






568 


PRINT "Chanqlnq naxinun 


x-axis 


value : " 


5G9 


GOSUB Uar_chanqe 






570 


T_end-Uar 






571 


T_ran-T_end-T_3 tar t 






572 


Load_vals: 1 






573 


Uar*Load__n i n 






574 


PRINT "Changing ninlnun 


Y“ax is 


value : " 


575 


GOSUB Uar_chanqe 






57B 


Load_n In-Uar 






577 


Uar-Load_nax 






578 


PRINT "Changing naxinun 


Y-axis 


value : " 


579 


GOSUB Uar_chanqe 






580 


Load_nax*Uar 






581 


Load_ran»Load_nax-Load_ni n 




582 


RETURN 






583 


Axes^units: 1 






584 


GOSUB Axes_u 






585 


GOSUB Start.t 






586 


GOTO Set_UD_nenu 






587 


Axes_u: * 






588 


KEY LABELS OFF 






539 


OFF KEY 






590 


PRINT "Select label for 


X-ax 1 s . 


Default is t Ine 


591 


ON KEY 1 LABEL "Tine 


Minutes 


" GOTO Tine^fnin 


532 


ON KEY 2 LABEL "Tine 


Seconds 


" GOTO Tlne_sec 


593 


ON KEY 3 LABEL "Elonq. 


nn" GOTO Elonq_nn 


594 


ON KEY 4 LABEL "Elonq. 


7," GOTO Elonq_pct 


595 


ON KEY 5 LABEL "Strain" 


GOTO Strain_a;<is 


596 


FOR 0-6 TO 8 






597 


ON KEY Q LABEL "" GOTC 


1 Axes_idle 


598 


NEXT 0 






599 


KEY LABELS ON 






600 


Axe5_idle;G0T0 Axe3_idle 






601 


Ti ne_nin : ! 






602 


X_axi s$-"Tine , ninutes" 






603 


GOTO Set _uo_Y_a^i 3 






604 


T ine_3ec : 1 







G05 X_ax i5$-"Tlna , seconds'* 

B0B GOTO Set 
B07 ElonQ_nn: f 

B0B X_axl3S*’’Elonqat Ion ^ nn" 

B09 SOTO Set 
B 1 0 Elonqjct : I 

Bll X_axi 5$-"ElonQat ion , Percent" 

BIZ GOTO Set_uD jY-.axi 3 
S I 3 Strain_axi3 : 1 
BI4 X_axl sS^’Strain** 



in ninutes 
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G15 Set _UD__Y_ax i 3 : I 
GIG OFF KEY 

GI7 PRINT “Select label for Y-axla. Default is load** 

G18 ON KEY 3 LABEL “Volts DC" GOTO Volts^y 

G19 ON KEY 4 LABEL “nV OC" GOTO Mv_y 

G20 ON KEY I LABEL "Load, kN" GOTO Load_y 

G21 ON KEY 2 LABEL "Stress, MPa" GOTO Stress.y 

B22 FOR 0-5 TO 8 

G23 ON KEY Q LABEL "" GOTO Y_ax_ldle 

G24 NEXT 0 

G25 KEY LABELS ON 

G2G Y_ax_idle:GOTO Y_ax_idle 

G27 Volts.Y-! 

G2B Y_axis$-"Volts OC" 

G29 RETURN 

G30 Mv_y • ! 

G31 Y_axi5$-"Millivolts OC" 

G32 RETURN 

G33 Load_y : I 

G34 Y.axls$-“Load, kN" 

G35 RETURN 

G3G Stress_Y* i 

G37 Y_axls$="Stress , MPa" 

G38 RETURN 

G39 Rates: ! 

G40 Var-Str__rat e 

G41 PRINT "Editing crosshead speed: give value in nn/nin" 

G42 GOSUB Var_change 

G43 Slr_rate-Var 

G44 GOTO Set_UD_nenu 

G45 Holds: 1 

B4G GOSUB Holds! 

B47 GOTO Setjup_nenu 

G48 HoldsI : ! 

G49 PRINT "Change hold tine?" 

G50 GOSUB Yes_no 

G51 IF Answer$-"Y" THEN 

G52 Var-Hold_t ine 

G53 GOSUB Var_change 

G54 Hoi d_t ine-Var 

G55 END IF 

B56 RETURN 

G57 Ex_toggle: I 

B58 PRINT "Toggle extensoneter? " 

B59 GOSUB Yes_no 

BB0 IF Ansuer$-"N" THEN BG8 

BGt IF Extensoneter$-"Off" THEN 

BB2 Extensoneter$-"On" 

GG3 ELSE 

GB4 Ext ensoneter$-"0f f " 

GG5 END IF 
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666 

667 

666 

669 

670 

671 

672 

673 

674 

675 

676 

677 
676 

679 

680 
661 
682 

683 

684 

685 

686 

687 

688 
669 

690 

691 

692 

693 

694 

695 

696 

697 
696 

699 

700 

701 

702 

703 

704 

705 
706- 

707 

708 

709 

710 
71 1 

712 

713 

714 

715 

716 



RETURN 



Ex_cnv: I 

IF Ex tensome ter$* "On” THEN 

PRINT "Change conversion factor?" 

G0SU8 Yes_no 
IF Answer$*"Y- THEN 
Uar-Ex _c on vert 
G0SU8 Uar^chanqe 
Ex jconvert -Uar 
END IF 

PRINT "Change intercept?" 

G0SU6 Yes.no 
IF Ansujer$-"Y" THEN 
Uar-Ex_inter 
GOSUB Uar ^change 
Ex _lnter»Uar 
END IF 
END IF 
RETURN 

Exjplt_cnv: I 

IF Ex tensonet er$-"0n" THEN 

PRINT "Change nininum strain plotted?" 
GOSUB Yes_no 
IF Ansuer$-"Y" THEN 



Uar-Exo iot0 
GOSUB Uar_chanqe 
Exp lo t0*Uar 
END IF 

PRINT “Change naximutn strain plotted?" 

GOSUB Yes_no 
IF Ansuer$-"Y" THEN 
Uar-Exp lo tmax 
GOSUB Uar_change 
Exp lotnax»Uar 
END IF 

Exp_con»( T_s tart-*^ nd)/ d lot0-Exo lotnax ) 
E:<p_int-T_s t art-E jt0»E j_con 

END IF 
RETURN 



Ten_com5 ! 

KEY LABELS OFF 
PRINT "TENSION 
BEEP 2000 1 

OFF KEY 



ON 


KEY 


1 


LABEL 


ON 


KEY 


2 


LABEL 


ON 


KEY 


3 


LABEL 


ON 


KEY 


4 


LABEL 


ON 


KEY 


5 


LABEL 


ON 


KEY 


6 


LABEL 


ON 


KEY 


7 


LABEL 



TENSION/COMPRESSION OR COMPRESSION TEST? 



TENSION- GOTO Ten.only 
TENSION" GOTO Ten.only 

- GOTO Ten.idle 

TENSION/COMPRESS" GOTO Ten^and^com 
TENSION/COMPRESS" GOTO Ten_and_com 

- GOTO Ten^idle 
COMPRESS" GOTO Corn^onlv 
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717 ON KEY 8 LABEL "COMPRESS" GOTO ConjDnlv 

718 KEY LABELS ON 

719 Ten^idletGOTO T«n_idle 

720 Ten_onlY^ Te_co*l 

721 GOTO Set_uDjnonu 

722 Ten_and_con : Te_co*2 

723 GOTO Set_uo_n6nu 

724 Commonly • Te_co*3 

725 GOTO Set_up_nenu 
72B Var_change:! 

727 INPUT "Type in desired value" ,Uar 

728 PRINTER IS 1 

729 PRINT Uar;"Is this OK?" 

730 GOSUB Yes^no 

731 IF An 3 wer$*‘'N" THEN Uarj:hanqe 

732 RETURN 
7G3 SetjuD_ok:! 

7G4 Init _daa : ! 

7G5 KEY LABELS OFF 
7GB GOSUB Plot_set_up 

7G7 OUTPUT 709i"CLR" 

7G8 OUTPUT 709; "USE 000" 

7B9 PRINTER IS 1 

770 Re^test: ! 

77 1 Aca_dat a : 1 

772 IF Uhich_pltr$-"CRT" THEN 

773 PennS* " Da t a " 

774 GOSUB Pen_select 

775 END IF 

77B FOR 0-1 TO 4 

777 ON KEY 0 LABEL "TEST COMPLETE" GOTO Test^done 

778 ON KEY 0+4 LABEL "RE-STARTTEST" GOTO Re_test 

779 NEXT 0 

780 KEY LABELS ON 

781 T_total = T_end-T_5 tart 

782 T_convert*l lassumes x-axis is in seconds 

783 IF X_a:<is$-'‘Tine , minutes" THEN T_conver t» I /B0 

784 IF X_axis$-"Elongat ion , mm" THEN T_conver t -S tr_ra t e/G0 

785 IF X_ax is$-"Elongat ion ^ %" THEN T_convert*< Str_rate/Gauge )*< 1 00/B0 ) 

78B IF X_axis$-"Strain" THEN T_convert-( Str_rat e/G0 )/Gauqe 

787 Lj:onvert-1 lassumes DCU is output 

788 IF Y_axis$-"Millivolts DC" THEN L^convert- 1 000 

789 IF Y_ax I s$-"Load , kN" THEN L_convert-Fs_load_cel 1/ 1 0 

790 IF Y_ax i s$* " Stress , MPa" THEN L_convert-(Fs_load_cell« 100 )/Sample_aroa 

791 KEY LABELS OFF 

792 INPUT "Hit <RETURN> uhen ready to proceed ,Uhich$ 

793 KEY LABELS ON 

794 T_0*TIMEDATE ITime is measured tn seconds then converted to desired unit 

795 LORG 5 
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79G FOR 1-0 TO 5000 

797 REPEAT 

798 T_l-( TIMEOATE-T_0 )«»T_convert 

799 UNtTl T_i>-(TJotal/5000)«(I) 

800 5train< I )-T_i 

801 OUTPUT 709i "CONFMEAS DCU,2I4" 

802 ENTER 709;Slre55< I ) 

803 Stre55< I )-5trc3s< I )«L_convert 

804 PLOT Strain< I ) ,Stre35< I ) 

805 IF Exten5oneter$-"On" THEN 

80G OUTPUT 709?-CONFMEAS 0CU,215“ 

807 ENTER 709iExten5< I > 

808 Exten5< I )-Exten3< I >»Ex_convert+Ex_lnter ICONUERTS TO STRAIN UALUES 

809 Exolot-Exter’ •Exo_con+Exp_int I CONVERTS STRAIN TO PL0TA8LE UALUES 

810 MOUE Exoiot •.5< iT 

81 1 LA8EL USING 

812 ENO IF 

813 NEXT I 

814 Te3l__done: I 

815 N _point5-I ITHIS IS THE LAST DATA POINT ACQUIREO 

81G OFF KEY ! ANO THE PLOTTER OOESN’T GO NUTS 

817 FOR Q-1 TO 4 

818 ON KEY Q LA8EL " " GOTO OunoerlOUMP PLOT??? 

819 ON KEY Q+4 LA8EL "Main Menu" GOTO Main__nenu 

820 NEXT Q 

821 T_d_idle:GOTO T_d_idlo 

822 Pen_select: I 



823 


ON 


KEY 


1 


LA8EL -Pen 1" GOTO PI 










824 


ON 


KEY 


n 

L, 


LA8EL "Pen 2" GOTO P2 










825 


ON 


KEY 


3 


LA8EL "Pen 3" GOTO P3 










826 


ON 


KEY 


4 


LA8EL "Pen 4" GOTO P4 










827 


ON 


KEY 


5 


LA8EL "Pen 5" GOTO P5 










828 


ON 


KEY 


G 


LA8EL "Pen G" GOTO PG 










829 


ON 


KEY 


7 


LABEL "Drauinq "iPennS 


GOTO 


Pen 


_se lec i 


_idle 


830 


ON 


KEY 


8 


LA8EL "Drauinq "&PennS 


GOTO 


Pen 


_se lec t 


_idie 



831 KEY LA8ELS ON 

832 SEEP 2000,. 1 

833 Pen_selec t_idle:GOTO Pen_se lect_idl e 

834 Pt :PEN 1 

835 GOTO Pen_return 
83G P2:PEN 2 

837 GOTO Pen_return 

838 P3;PEN 3 

839 GOTO Pen_return 

840 P4.-PEN 4 

841 GOTO Pen_return 

842 P5:PEN 5 

843 GOTO Pen_return 

844 PG:PEN G 

845 Pen_return; I 
84G KEY LABELS OFF 
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847 RETURN 

848 Ounoer: 1 

849 KEY LABELS OFF 

850 DUMP DEUICE IS 701 

851 OUTPUT K80rN"i 

852 GOTO Main_nenu 

853 File_err: ! 

854 PRINTER IS 1 

855 PRINT USING "0,t“ 

85G BEEP 2000,. 3 

857 IF ERRN*78 OR ERRN-85 THEN 

858 PRINT "UARNING you are Initializing this disc. Ail data will be erased. 

859 INPUT "Hit <RETURN> to cont Inue " ,Uhich$ 

850 INITIALIZE " :CS80, 700,1" 

OSl END IF 

852 PRINT "Error in file nane select ion" ,ERRN ,ERRM$ 

853 GOTO Data_save 

854 Plot_setjLJDJ ! 

855 PRINTER IS 1 

855 OFF KEY 

857 PRINT "Oo you want to use the Plotter?" 

858 G0SU8 Yes_no 

859 OUTPUT KBOr’K"; 

870 IF Ansuer$»"Y" THEN INPUT "Put oaoer in the plotter then hit (RETURN) " ,Uh i 
ch$ 

871 GINIT 

872 GRAPHICS ON 

873 IF Answer$-"Y" THEN 

874 PLOTTER IS 705,"HPGL" 

875 UIEUPORT 0,125,0,100 

875 Uhich jD 1 tr$- "P lot ter " 

877 Penn$-"Axes" 

878 G0SU8 Pen_select 

879 ELSE 

880 PLOTTER IS CRT ," INTERNAL- 

881 Which j}ltr$-"CRT" 

882 UIEUPORT 0,120,25,100 

883 ENO IF 

884 Load_ran-Load_max-Load_nin 

885 T_ran-T_end-T_start 

885 WINOOW T_start- . I « ( T_ran ) ,T_end ,Load_nin- . 1 *Load_ran ,Load_nax+ . 1 3*Load_ran 

887 CLIP T_st art ,T_end ,Load_nin ,Load_nax 

888 GRID T_ran/ 1 0 ,Load_ran/ 1 0 ,T_start ,Load_min , I , I 

889 CLIP OFF 

890 CSIZE 3 

891 LORG 4 

892 MOUE ( T_start+T_end )/2 ,Load_nax+ .08*Load_ran 

893 LABEL USING "K " i Sanole^nrSi" "iUAL$( Test _t enp )& " C" 

894 LORG 5 

895 FOR I-T start TO T_end STEP (T_start-T end)/(-5) 
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89G MOVE I ,Load_nin-.025*Load_ran 

897 LABEL USING "K";! 

898 NEXT I 

B99 MOVE .5*( T_star t + T_end ) ,Load_nin- . 07»Load_ran 

900 LABEL USING "K";X_axis$ 

901 LORG 8 

902 FOR I-Load_nin TO Load_nax STEP Load_ran/10 

903 MOVE T_start-( .01 •(T_ond-T_3tart > ) J 

904 LABEL USING '’K**?! 

905 NEXT I 

90S LORG 4 

907 MOVE T_start -( . 07 •( T_end-T_start ) ) ,Load_ran/2+Load_nin 

908 DEG 

90^= LOIR 90 

91 LABEL USING "K";Y_axi3$ 

91 LOIR 0 

912 LORG 4 

913 IF Exlensonoler$-”On" THEN 

914 ExD_ran-E:<o 1 otnax-Exo lot0 

915 CLIP T_5 tart + . 1 »T_ran ,T_and ,Load_nax ,Load_nax+ . 1 *Load_ran 

91S AXES T_ran/ 1 0 ,Load_ran/20 ,T_start ,Load_nax 

917 CLIP OFF 

918 FOR I-T_start TO T_end STEP T_ran/10 

919 MOVE I ,Load_nax+Load_ran* . 03 

920 LABEL USING "K " ; ( I-Exo_int )/Exo_con 

921 NEXT I 

922 END IF 

923 RETURN 

924 Uhlch_nsut ! 

925 MASS STORAGE IS " :CS00 .700 J 

92G PRINT "Do you want to store/recall data to/fron the 3-1/2 flooDy?** 

927 GOSUB Yes_no 

928 IF Answer$-"Y" THEN MASS STORAGE IS ”:CS80.700" 

929 KEY LABELS OFF 

930 RETURN 

931 Yes_no: ! 

932 OFF KEY 

933 KEY LABELS OFF 

934 FOR Q-1 TO 4 

935 ON KEY Q LABEL "YES" GOTO Yeas 

93G ON KEY Q+4 LABEL "NO" GOTO Noo 

937 NEXT Q 

938 KEY LABELS ON 

939 Yes_no_ldle:GOTO Yes_no_idlc 

940 Ye8s:Answer$-"Y- 

941 RETURN 

942 Noo;Answer$-"N" 

943 RETURN 

944 Analy 2 e_data : ! 

945 PRINTER IS 1 

94G PRINT "Data analysis section not written yet" 



50 



947 BEEP 

948 GOTO Maln_menu 

949 END 

950 SUB Chanqer( Ara( * ) ,F ) 

951 FOR 1-1 TO 5000 

952 Ara( I )-Ara( I )*F 

953 NEXT I 

954 SUBEND 



B. DATA REDUCTION PROGRAM 

REDUCE is similar in structure to ACQR. The load/timc data stored by ACQR is 
accessed and converted to stress/strain data. 

1. Users Guide 

liic program i.s used similarly to ACOR- I he user recalls the data uC interest ami 
plots it on the video screen and then selects 'REDUCE DA 1 A' from the menu, i’hc 
elastic range of the plot needs to be linearized. This is done through 'INPUT TYPE' 
by 1) a numerical X-Y input via the keyboard, 2) using the cursor arrows, or 3) by using 
the mouse. The end points of the line is selected and the last good data point is chosen. 
The line is then drawn over the plot. IF the slope of the plastic zone is not correct, it can 
be done over or accepted using 'SLOPE OKAY'. The program will remove the grip 
slippage and re-zero t’ c plot and display the true stress vs. true strain plot that has been 
"reduced" from the rr ,h load vs. time plot by using 'PLOT TRUE'. Do not select the 
plotter until you have changed the axes to the appropriate units. The program prints the 
maximum true stress and trues strain of the data at the top of the graph. Round up to 
convenient, easily divisible numbers for the axes. Also choose 'TRUE STRESS' and 
'TRUE S'fRAIN' for the axes labels. You may then make a hard copy plot. 

2. Source Listing 



10 I Program to convert load/tlne to streas/atraln from the Instron G027 
21 I Revised 07OEC90 Paul Macrl 
25 I REDUCE (Stored as S24JUL) 

30 DIM S tr aln( 5000 ) ,S tress( 5000 ) ,Sano lo_nr$C 50 3 ,Area_l ( 5000 ) ,Ex t ens( 500C 
35 ! note: Extens is used for inputting strain gage data 

37 DIM Stress_engr(5000) ,Strain_engr(5000) ,Stress_true(5000) 

38 DIM Strain_true( 5000 ) 

40 DIM X_axisSC253 

41 CLEAR SCREEN 

45 Init_sec: I 

50 Str_rate”1.07 !nm/nin 

55 Gauge” 1 2. 7 I gauge length in ntn 

B0 T_start”0 

55 T_end-I000 

70 T_total-I000 

75 Load_min”0 

80 Load_nax”2 

85 Fs_load_cel 1”20 

90 Test_tenp“300 

95 X_axls$""Tine , minutes" 

100 Y_ax i sS”’Load , kN" 
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105 
t 10 
1 15 
120 
125 
130 
135 

140 

US 

150 

151 

153 

154 

155 

156 

157 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
218 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 

300 

301 
310 
312 
320 
325 
330 



Te.co-1 ! TENSION ONLY TEST 
Ex ten some ter "Of f * 
Ex_convert* 1 
Ex^int er-0 
Exp_con» 1 
ExQ_in t*0 
Exo lotO-0 
Lxq lo lnax-20 
Ulde-0 
Thick*0 
Zzz-0 ! 

Xx*0! 

01d_axe5*2 ! 

I 

GOSUB Shou^set.uo 



TELLS WHAT THE MAX STRESS/STRAIN IS FOR AXES 
THIS IS FOR THE X ,Y AXIS LABELS FOR TRUE/ENGR 

2 MEANS CREATE AXES FOR A NEW PLOT 

3 MEANS YOU WANT TO SUPERIMPOSE SEUERAL PLOTS 



MAIN MENU 



Main_nenu : 
BEEP 2000 
OFF KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 



1 



"Change Set-uo* GOTO Set_uD_nenu! 
"Show Set-up" GOTO Shou_se t_up_q ! 
"Change Data" GOTO Chanqe_data! 
"QUIT" GOTO Stopper! 



LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
LABEL 

IF ( Y_ax i 5$*"Load , kN" 

ON KEY 7 LABEL "NEED 
ON KEY 8 LABEL "DATA 
BEEP 2000,.! 

BEEP 2500,.! 

END IF 

IF ( Sanp le_area»0 OR Gauge-0) THEN 



"Store 

"Plot 

"Recall 

"RUN/ 



Data" GOTO 5tore_data! 

Oata" GOTO Plot_data! 

Old Oata" GOTO Rocall_datal 
REDUCE" GOTO Sat_uo_okl 
OR Y_axia$-"Stres5 , MPa") ANO 
LOAOCELL" GOTO Load.cell 
NEEDEO" GOTO Main menu 



Fs 



LINE 


3050 


LINE 


? 


LINE 


315 


LINE 


2595 


LINE 


1870 


LINE 


2380 


LINE 


1620 


.load 


_c e 1 1 ’ 



•0 THEN 



ON KEY 3 LABEL "NEED SA.OIMEN." GOTO S_area_1 
ON KEY 8 LABEL "OATA NEEOEO" GOTO Main_nenu 
BEEP 2000,.! 

BEEP 2500,.! 

END IF 



IF Samole^nr#-"" THEN 

ON KEY 4 LABEL " lOENT IFYSAMPLE" GOTO Sanple^ld^n 
ON KEY 8 LABEL "OATA NEEOEO" GOTO Main^nenu 
BEEP 2000,.! 

BEEP 2500,.! 

ENO IF 

KEY LABELS ON 

Main_nenu_idle:GOTO Main_nenu_idle 

Chanqe^data; 1 CHANGE DATA 

OFF KEY 

ON KEY 1 LABEL "ADO 10X" GOTO C„d_addl01 CHANGE LATER 

ON KEY 2 LABEL "ADD 50X" GOTO C^d^add50 
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335 ON KEY 3 LABEL "SUB. I0X" GOTO C_d_5ubl0 

340 ON KEY 4 LABEL "SUB. 50X" GOTO C.d_sub50 

345 ON KEY 5 LABEL "MULTIPLYBY 0.1 " GOTO C_d_nulDl 

350 ON KEY 6 LABEL "MULTIPLYBY 2 " GOTO C_d_nul2 

355 ON KEY 7 LABEL "MULTIPLYBY 10" GOTO C_d„null0 

360 ON KEY 8 LABEL "Convert Units" GOTO Convjunlts 

365 KEY LABELS ON 

370 C^d^ipin:60T0 C_d_spin 

375 C.d.addl0:C.d_rnult-l . 1 

300 GOTO C.d 

385 C H fldfJGOJO d mult-l .5 

390 GOTO C.J 

395 C_d.aubl0:C„d,fnult-.g 

400 GOTO C_d 

405 C_d_aub50:C_d_nult-.5 

410 GOTO C_d 

415 C_d_fnulo I sC_d_nul t* . I 

420 GOTO C^d 

425 C_d j^ulZ :C_d_nul t*2 

430 *60T0 C.d~ ~ 

435 C_d.nul5;C_d_fnult-5 

440 GOTO C_d 

445 C.d.mulI0:C.d_nult-l0 

450 C_d: I CJ »#»#*#**»♦#»»»** 

455 OFF KEY 

460 FOR 0-1 TO 2 

LINE 495 
LINE 505 
LINE 515 



tn, load, etc 
Main jnenu 



575 ON KEY 8 LABEL "Conv. loTrue S-s" GOTO True.true 
580 KEY LABELS ON 

585 Conv_unlts_idleJGOTO Conv juni t s_idle 



465 ON KEY Q LABEL "CHANGE X-UALUES" GOTO C_d^chq_x! 

470 ON KEY 0+2 LABEL "CHANGE Y-UALUES" GOTO C.d.chg^y! 

475 ON KEY 0+4 LABEL "CHANGE AREAS" GOTO C_d_chq_z» 

480 NEXT 0 

485 KEY LABELS ON 

430 C.d.tdla:G0T0 C.d.idle 

495 C_d_chq_x .* CALL Chenqer ( S t ra I n( • ) ,C _d ,nu 1 1 ) 

500 GOTO Mainjnenu 

505 C_d_chq_Y : CALL Chanqer( Stress( » ) ,C_d_nul t ) 

510 GOTO liain_menu 

515 C_d_c hq_r : CALL Chanqer( Area_i ( * ) ,C_d_nul t ) 

520 GOTO Main_nenu! ♦##••#*#♦ CONU^UNT 

525 Conv_unitsJ ! Converts x-axis units from current units tc 
530 INPUT "Specify code to use conversion sect Ion" ,Which$ 

535 IF WhlchtO-CODE" AND UhichtO "Code" AND UhichSO "coda " 
540 ON KEY 1 LABEL "Conv. toLoad-t" GOTO Load.tine 

545 ON KEY 2 LABEL "Conv. toLoad-ext" GOTO Load.ext 

550 ON KEY 3 LABEL "Conv. toLoad-X" GOTO Loadj)ct 

555 ON KEY 4 LABEL "Conv. toLoad-stn" GOTO Load.strain 

560 ON KEY 5 LABEL "Conv. toStrs-X" GOTO Strossjct 

565 ON KEY 6 LABEL "Conv. toStrs-ext" GOTO Stress^ext 

570 ON KEY 7 LABEL "Conv. toStrs-stn" GOTO Stress_strain 
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GUO Load^t Ina I I 
595 6O5U0 ConvJlneJ 

G00 GOSUB ConvJoadJ 

605 GOTO Matn_nenu 
610 Load_ext; ! 

615 GOSUB Convjoad^t 

620 GOSUB Conv.6xl_l 

625 GOTO Maln^nanu 

030 Loid.pc til 
n.in onnun nonv^ioaiL i 

G40 GOSUB Conv jpct J 

645 GOTO Maln_nenu 

650 Load__straln ; ! 

655 GOSUB ConvJoad_l 

660 GOSUB Conv_5lrain_t 

665 GOTO Main_nenu 

670 Stress jpcl : ! 

675 GOSUB Conv_s tress_t 

680 GOSUB Convjpct J 

685 GOTO Main_nanu 

690 Slres5_ext : ! 

695 GOSUB Conv_stres5_l 

700 GOSUB Conv^exl^l 

705 GOTO Main_nenu 

7I0 Stresses train:! 

715 GOSUB Conv_5tres5_l 

720 GOSUB Conv_strain_t 

725 GOTO Main^onu 

730 True_true : • 

735 PRINT "Not written yet” 

740 BEEP 200,. 5 

745 UAIT I 

750 GOTO Main_nenu 

755 Conv_ext_l : ! Converts x-data to extension in 
760 KEY LABELS OFF 

765 IF X_axis$*"Elonqat ion , nn" THEN GOTO Conv 
770 I_conv_x»t 

775 IF X_axis$*"Tine , minutes" THEN 

780 X_axi5S*"EionQat ion , nn" 

785 I _conv_x"S tr_f at 0 

790 ENd”iF 

795 IF X_axls$-"Tlne, seconds" THEN 

800 X_axi s$*"Elongat ion , nn" 

805 I_conv_x-Str_rate/60 

010 end"if 

815 IF X_axis$-"Elonqation, Percent" THEN 
B20 X_axi sS-"Elongat Ion , nn" 

825 I_conv_x*.0I »Gauqe 

830 EN0”lF 

835 IF X.«xist-"Straln" THEN 
840 X_axls$*"Elonqat ion , nn" 



nn 

ext 2 
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845 I_conv_x-GauQO 
950 5N0 IF 

855 IF I_conv_x-l THEN GOSUB Con_orr 
850 GOSUB Convex 
855 Conv_ext_2: RETURN 

870 Conv_strain_l J I Converts x-data to strain 

875 GOSUB ConvjDct_l 

880 l_conv_x*.0l 

885 X_axisS“‘’Strain , nn/nm" 

890 GOSUB Convex 
895 RETURN 

900 Conv _pct_l : I Converts x-data to pet strain 
905 KEY LABELS OFF 

910 IF X_axls$-’‘Elongat Ion , Percent" THEN GOTO Conv_pct 
915 I_conv_x»l 

920 IF X_axi s$""Tine , minutes" THEN 
925 X_axis$""Elonqat ion , Percent" 

930 I_conv_x» 1 00 »Str _rate/Gauqe 

935 END IF 

940 IF X_axis$-"Tine , seconds" THEN 
945 X_axisG-"Elonqat ion , Percent" 

950 I_conv_x- 1 00 ♦( S tr_rate/S0 > /Gauge 

955 END IF 

960 IF X_ax i s'J- “E longa t ion , nn” THEN 
955 X_axisS-"Elonqat ion , Percent" 

970 I _conv_x-l 00/Gauqe 

975 END IF 

980 IF X_axis$-"Strain" THEN 

985 X_axi s$*"Elonqat ion , Percent" 

990 I_conv_x*100 

995 END IF 

1000 IF I_convj<«l THEN GOSUB Concern 
1005 GOSUB ConJ_:< 

1010 Convj3ct.2:RETURN 

1015 Con . _t ime_l : I Converts x-data to lime in minutes 
1020 KE LABELS OFF 

1025 IF X_ax i sS-"Time , minutes" THEN GOTO Conv_time_2 
1030 I_conv_x»l 

1035 IF X_ax is$"" Time , seconds" THEN 
1040 X_axis$""Time , minutes" 

1045 I _conv_x- 1 /50 

1050 END IF 

1055 IF X_ax ls0*"Elonqat Ion , mm" THEN 
1050 X_axlsS-*Time , ninutes* 

1065 I_conv_x-l / Str j-ate 

1070 EN0"lF 

1075 IF X_axisS*“Elonqat ion , Percent" THEN 
1080 X_axlsS*"Time , minutes* 

1 085 I_conv_x-( 1 /Str_rate )» .0 1 »Gauqe 

1090 END IF 

1095 IF X_axis$*"Strain" THEN 
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1100 X_ax 1 s#« " T twe , nlnutes“ 

1105 I_conv_x“< 1 /Str_rate )«Gauge 

1110 END IF 

MIG ir I_conv_x-l THEN GOGUD Con_orr 
1120 G05UB Conv_x 
1125 Conv_t lne_2 : RETURN 
1 130 Conv_s tress_l : ! 

1 135 GOSUB Conv_load_l 

1140 IF Sanole_area-0 THEN GOSUB S^area 
1145 I_conv_y* 1 000/Sanp le_area 
1150 Y_axi5$-"Stres5, MPa’ 

1155 GOSUB Conv.Y 
MG0 RETURN 
1 1G5 Conv_load_l : I 

1170 ir Y_oxlftH-“Lond, ^N- THEN Conv_load_2 
1175 I _conv_Y* 1 

1180 IF Y_axi5$-’Uolt5 DC" THEN 
1 185 Y_axLS$--Load, kN” 

1190 IF F5_load.cell-0 THEN INPUT "Full-scale value of load cell?, kN" ,Fs_loa 
d_cel 1 

1195 I _conv_Y"f^s_ioad_ce 1 1 / 1 0 

1200 END IF 

1205 IF Y_axlii-"MllUvoltt DC" THEN 
1210 Y_axis$-"Load , kN" 

1215 IF Fa Joad.coll-0 THEN INPUT "Full-scale value of load cell?, kN" ,Fa_loa 
d_cel 1 

1220 I _conv_Y*F3_load_cel 1/ 1 0000 

1225 END IF 

1230 IF Y_axi5$»‘‘Stre35 , MPa" THEN 
1235 Y_axis$»"Load, kN" 

1240 IF Sano le_area*0 THEN GOSUB S_area 

1245 I_conv_Y"Sanole_area 

1250 END IF 

1255 IF I_conv_Y-l THEN GOSUB Con^err 

12G0 GOSUB Conv_Y 

12G5 Conv Joad^2:RETURN 

1 270 Conv_x ! 1 

1275 FOR 1-0 TO 5000 

1280 Strain(I)-Straln<I)* I_conv_x 

1285 NEXT I 

1290 RETURN 

1295 Convey: « 

1300 FDR 1-0 TO 5000 

1 305 Stress<I)-Stre55(I )« I_conv_y 

1310 NEXT I 

1315 RETURN 

1320 Con.orr: 1 

1325 DEEP 200,. 5 

1330 PRINTER IS 1 

1335 PRINT »«»CAUTI0N**«»»No conversion" 

1340 WAIT 3 
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1345 RETURN 
1350 Load_tine_2: I 

1355 IF Y_axl9$--Load , kN" THEN Load_tina_3 
1360 I^oonv.Y"^ 

1365 IF Y_axls$-"Uolta DC" THEN 
1370 Y^axlaS-^Load , kN" 

1375 IF Fa^load r,ell-0 THEN INPUT "Full-acalo value of load call?, kN" ,F5_loa 

d.cell 

1 3B0 I _conv_Y-Fa_load_ce 1 1 / 1 0 

1385 END IF 

1390 IF Y_axi5$-"Mlllivolta DC" THEN 
1395 Y^axiaS-^Load, kN" 

1400 IF Fa_load_cell-0 THEN INPUT "Full-acale value of load cell?, kN" ,Fa.loa 

d_cal 1 

1405 I _conv_y«F8_load_cel 1 / 1 0000 

1410 END IF 

1415 IF Y_axl8$-"Stro50 , MPa" THEN 
1420 Y_axla5-"Load , kN" 

1425 IF Sano le_area-0 THEN GOSUB S_aroa 

1430 I_conv_y-Sano la_area 

1435 END IF 

1440 IF I_conv_Y-l THEN GOSUB Concern 
1445 GOSUB Conv_y 
1450 Load_t ime_3:RETURN 

1455 Samole_id_3: !•*#••*#*»•*****#***♦##•***••# SAMPLE_ID_S ••••♦****••*** 

1460 ON KEY 1 LABEL " I dant i f ySamp U" GOTO Samp U.id_a_2 

1465 ON KEY 2 LABEL " I dent 1 f ySanp le" GOTO Samole.ld_a_2 

1470 ON KEY 3 LABEL "Change Tamp" GOTO Chq_lea t_temp 

1475 ON KEY 4 LAREL "Change Tamo" GOTO Chqjoa t _tomo 

1480 FOR Q-5 TO 8 

1485 ON KEY 0 LABEL "Change Dlmen’a" GOTO S_area_2 

1490 NEXT 0 

1495 SamDle_ld_5Pin:G0T0 SamDle_ld_SDln 

1500 Chq_t ea t emp : I 

1505 Uar»Tea t _tenp 

1510 GOSUB Uar^change 

ISIS Taa t _tamo«Uap 

1520 GOTO Set_up_menu 

1525 Sanole_ld_3_2: I 

1530 GOSUB Sampla.ld 

1535 GOTO Set_up_menu 

1540 Sample_ld_m: I 

1545 GOSUB Sample_id 

1550 GOTO Main_menu 

1555 Sample^ld: ! 

1560 KEY LABELS OFF 

1565 INPUT "Identify aampla 50 charactera max" ,Sample_nr$ 

1570 RETURN 
1575 S_area_l : 1 
1580 GOSUB S^area 
1585 GOTO Maln_manu 
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1590 S_area_2: I 
1595 G05UB S^area 
1G00 GOTO Set_up_nenu 
1G05 Shou_set_uD_QJ I 
1G10 GOSU0 Show.set^uD 
IB 15 GOTO Main_nenu 

1G20 Recall.data: I »♦»»•♦********* RECALL.DATA ***************** 

1B25 G05UB Ra^data 
IS26 GOSU0 Show un n 
1GJ0 0010 Plol^dala 

IG35 Ra HaUH •*•«••»•••••••••»•• nr DATA 

IG40 6OSU0 Whlch^nsu 

1B4I ON ERROR GOTO Inout^err 

IG42 INPUT "File to be used? Don’t tyoe suffix X ,Y ,orZ . " ,Fi le_nane$ 

IG43 Xfile$-File_nane$&"B" 

1G44 Yf 1 le$*File_nane$&"C" 

1B45 Zf i le*-Fl le_nane$8r " Z " 

1G4B Of lle$-File_nane$&"0" 

1B47 ASSIGN «Pathl TO XflloS 

IG40 ASSIGN 0Path2 TO YflleS 

IG49 ASSIGN @Path3 TO Zfila$ 

IB50 ASSIGN 0Path4 TO OfileS 

1B5t! ON ENO 0Path3 GOTO Plot_data 
1B52 OFF ERROR 
1853 ON ERROR GOTO 1B55 
1G54 ENTER @Pathl ; Strain( * ) 

1B55 OFF ERROR 

1656 ON ERROR GOTO 1656 

1G57 ENTER 0Path2 ; Stres s( • ) 

1G50 OFF ERROR 
1B59 ON ERROR GOTO 1GB3 
1BB0 E_c*Ex _conver t 
IBBl E_i*Ex_inter 

IBB 2 ENTER @Path3 ; Sano le_nr$ ,X_axis$ ,Y_3xis$ ,Dia, Wide, Thick , Gauge ,T_start ,T_end 

,Load_nin ,Load_nax ,Fs_load_cel 1 ,Te_co ,S tr_rate ,Extensonet er$ ,E_c ,E_i ,Test_t enp 

1GB3 OFF ERROR 

1BB4 ON ERROR GOTO 1BB7 

1BB5 ENTER ©Path4 i Ex tens(* ) 

IGBG OFF ERROR 

1BB7 ASSIGN @Path4 TO » 

1GB8 ASSIGN OPathl TO ■ 

1BG9 ASSIGN 0Path2 TO • 

1G70 ASSIGN @Path3 TO ♦ 

1795 RETURN 

1000 Input^orr: •♦••♦INPUT^ERR 

1005 PRINTER IS 1 
1810 IF ERRN-5B THEN 



1015 


PRINTER 


IS 


701 


1820 


CAT 






1825 


FOR Q-1 


TO 


5 


1030 


PRINT 
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1835 NEXT 0 

1840 PRINTER IS 1 

1845 END IF 

1850 PRINT USING "9,#" 

1055 BEEP 

18B0 PRINT ERRMi 

1885 GOTO Recall^data 

1070 Store^dataJl STORE DATA 

1875 G05UB Uhlch hpiu 

1880 ON ERROR GOTO 5toro_nrr 

1005 INPUT ■’rilfl to h« uaod? Don't Ivon aufftA D ,C ,or'Z . ** ,P l t o _nnnoB 

1090 Xf lleS-Fl le_nane*&"B' 

1091 Yf ilcS-Flle^naneS&'C 
1892 2f lle$*File_name$8r**Z" 

1093 Qfile$-File„nane$&’*Q- 
1894 ASSIGN ©Pathl TO XfileS 

1095 ASSIGN 0Path2 TO YflleS 

1898 ASSIGN 0Palh3 TO Zflle« 

1897 ASSIGN 0Palh4 TO QflleS 

1090 ON END 0Palh4 GOTO Maln^nonu 

1899 OFF ERROR 

1900 ON ERROR GOTO 1902 

1901 OUTPUT ©Pathl ;Strain( • ) 

1902 OFF ERROR 

1905 ON ERROR GOTO 1905 

1904 OUTPUT 0Path2;Stress( * ) 

1905 OFF ERROR 

1 90S ON ERROR GOTO 1910 
1907 E_c«Ex_convcrt 
1900 E_l-Ex_lnter 

1 909 OUTPUT 9Path3; Sanole_nr$ ,X_axls$ ,Y_axls* »Dla ,Ulde, Thick , Gauge ,T_start ,T_en 
d ,Load_nin ,Load_nax ,Fs _1 oad_ce 1 1 ,Te_co ,Str_rate ,Ex tensonet er$ ,E_c ,E_i ,Test_teno 

1910 OFF ERROR 

1911 ON ERROR GOTO 1914 

1912 OUTPUT @Path4;Extena( * ) 

1915 OFF ERROR 

1914 ASSIGN @Path4 TO * 

1915 ASSIGN ©Pathl TO * 

1915 ASSIGN 0Path2 TO ♦ 

1917 ASSIGN @Path3 TO * 

2030 MASS STORAGE IS “ :CS80 ,700 J " 

2035 GOTO Maln_nenu 

2040 Storo^err; STORE^ERR 

2045 PRINTER IS 1 
2050 IF ERRN-56 THEN 
2055 OFF ERROR 

2080 PRINT "File not found. Below Is a list of current files." 

2085 CAT 

2070 FOR Q-1 TO 5 

2075 PRINT 

2000 NEXT Q 
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20B5 PRINT "Uould you like to creote a now fllo7“ 

2030 GOSUD Yo5.no 

2095 IF An5uer$-’’Y” THEN 

2100 PRINT "Insert data disk" 

2105 BEEP 

2110 INPUT "File nano?" ,File_nanoS 

2115 New_f lie: ! 

2120 ON ERROR GOTO Olsk.full 

2125 PRINT "Crcatlnn nww files.. " 

2130 CREAIC UUAr F I lo.nano«!l“Q" ,0 ,5000 

2135 CREATE BOAT FI l6_nane$&"C" ,0 ,5000 

2140 CREATE BOAT F i le_nane$i " Z " , I ,5000 

2145 CREATE BOAT Fi ie_nane$& "Q" , I ,5000 

2150 OFF ERROR 

2155 ELSE 

21G0 GOTO Store.data 

2155 END IF 

2170 ELSE 
2175 PRINT ERRMS 

2100 OFF ERROR 

2185 PRINT "Oo you want to try again?" 

2190 GOSUB Yes.no 

2195 IF Answer$-"Y- THEN Store_data 

2200 GOTO Main.nenu 
2205 ENO IF 

2210 PRINT USING "0,4" 

2215 BEEP 

2220 GOTO Storo_data 

2225 Dlsk.fuII: OISK.FULL 

2230 OFF ERROR 

2235 PRINT "This disk is full. Do you want to reolaco It with a new disk?" 
2240 GOSUB Yes_no 

2245 IF Ansuer$-"N" THEN Store.data 
2250 GOTO Neu.flle 

2255 Prlnt.data: !•**•»*#•*»***»*»»###»### PRINT.OATA ##»#»♦##♦♦*♦**•»## 

2260 PRINTER IS 701 
2265 GOSUB Show.set .uo_2 
2270 PRINTER IS I 
2275 GOTO Malnjnonu 

2280 Plotjata; PLOTJATA * 

2201 IF Old.axos-3 THEN GOSU0 Plot_data.2( TO MAKE A SUPERIMPOSED PLOT 

2202 IF Xx-2 THEN 

2203 X_axi s$“"Enginoerlng Strain" 

22B4 Y_axia$*"Enqinoorlnq Stress, MPa" 

22B5 ENO IF 

22B6 IF Xx-3 THEN 

22B7 X.axi sS-"True Strain" 

22B0 Y_ax ls$*"True Stress, MPa" 

22B9 ENO IF 

2290 GOSUB Plot.sat^p 

2291 L_type*0 
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2292 Next_curve: ! 



2293 

2294 

2295 
229G 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 
2305 

2307 

2308 

2309 

2310 



L_tyDe*L_lYPe+ 1 



LINE TYPE L^type 
OFF KEY 

ON KEY t LABEL " 
ON KEY 2 LABEL " 
ION KEY 3 LABEL 
ON KEY 3 LABEL ' 
ON KEY 4 LABEL “ 
ON KEY 5 LABEL " 
ON KEY G LABEL “ 



Cent InuePlot " GOTO Plot_data_2 
CHANGE MAINAXES" GOTO Plot^axes 

"CHANGE SUB-AXES" GOTO Sub.axes 
* GOTO Sub^axea 
NEW PLOT" GOTO Maln^nenu 

Main Menu" GOTO Main_nenu 

Print Data" GOTO Print_data 



IF Exten3ometeri-"0N" THEN 

ON KEY 7 LABEL "LOAO- TIME" GOTO Plot_data_2 
ELSE 

ON KEY 7 LABEL "Stress- Strain" GOTO Stress_strain 
END IF 

ON KEY 8 LABEL "REDUCE DATA" GOTO Data_red_menu 
KEY LABELS ON 

IF Xx-3 THEN PRINT "TRUE STRESS ( MAX i Stras s j»iax i 



; Strain^nax 



2311 IF Xx-2 THEN PRINT "ENGR STRESS ( MAX ; Stress.max ; 



f S tra i n_nax 

2313 P lo t _da ta_l die : GOTO P lot _data_idle 

2314 Plot_axes: PLOT_AXES •* 

2515 GOSUB Axes.u 

2315 GOSUB Start _t 

2317 GOSUB Plot_set_uo 

2318 GOTO Plot_data_2 

2319 Sub.axes: SUB.AXES ••• 

2320 GOSUB Ex^lt.cnv 

2321 GOSUB Plot.set.uD 

2322 GOTO Plot_data_2 

2323 Plot_data_3: PLOTJATAJ •** 

2324 KEY LABELS OFF 

2325 IF Ansuer$-"Y" THEN GOSUB Pen_select 
2325 FOR I-l TO 5000 

2327 Explot*Extens< I )*Exp_confExp_int 

2328 IF I-l OR Explot-T_start THEN MOUE Explot ,Stres s( I ) 

2329 IF Exolot<T_start OR Explot>T_end THEN End jplot J 

2330 PLOT Explot ,Stress< I ) 

2331 Endjplot 3: 1 

2332 NEXT I 

2333 IF Ansuer$-"Y" THEN PEN 0 

2334 GOTO Next curve 



2335 Re.data.l: REJATA^l ♦ 

2336 GOSUB Re^data 

2337 Plot.data_2: I PLOTJATA_2 



2338 IF Uhich_pltr$-"Plotter" THEN GOSUB Pen^select 
2340 KEY LABELS OFF 

2342 FOR 1-1 TO 5000 

2343 IF I-N_points THEN GOTO Next_curve 



TRUE STRAIN 
ENGR STRAIN 



<MAX )- 
(MAX )- 
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2345 IF I-l OR Slralnd )-T_8tflrt THEN MOVE Sira I n( I ) ,5 tr«8fi( I ) 

2347 IF 5 Ira in( I )<T_b tart THEN End^curve 

2340 IF Slfflln •nar(f><r TIIFN Fml rnr'vp 

234U II lo^co-I ANU (Stroafl( I >>Load^nax OR Str6BB( I XLoad^nln ) IIIEN GOTO End 

curva 

2350 IF T6jco* 3 AND ( Sires s( I )<Load_nax OR Slress ( I )>Load_n tn ) THEN GOTO End 
curve 

2351 IF Slraint I )>T_end OR Slrain_enqr( I )>T_end THEN 

2352 1-5000 

2353 GOTO End_curve 

2354 END IF 

2355 IF I>N joints AND Slrain(I>-0 THEN 

2355 GOTO Nexl jurve 

2357 END IF 

2359 IF Xx-0 OR Xx-3 THEN PLOT Strain! I ) ^Slressd > 

2360 IF Xx-2 THEN PLOT Strain_engr( I ) ,S tres5_engr( I ) 

2351 Endjurve: ! 

2362 NEXT I 

2363 IF Ansuer$-"Y" THEN PEN 0 

2364 GOTO Nextjurve 

2365 Show jet jDj: I SHOU_SET_UPJ 

2366 60SUB Shouijat_up 

2367 GOTO Main_nenu_ldle 

2368 STOPPER 

2369 PRINTER IS I 

2370 KEY LABELS OFF 

2371 PRINT "Do you want use this orogran again?" 

2372 GOSUB Yes_no 

2373 IF Answer$-"N" THEN LOAD "HSLABS" 

2374 IF Answers-" Y" THEN GOTO Starter 

2376 STOP 

2377 Load_cell: LOAD.CELL 

2378 KEY LABELS OFF 

2379 INPUT "What Is the full-scale load value in kN?" ,Fs_load_cel 1 

2380 GOTO Main_nenu 
2301 Sjraai I 

2382 OFF KEY 

2383 FOR Q-I TO 4 

23B4 ON KEY 0 LABEL "round sanole" GOTO Round 

23B5 ON KEY Q+4 LABEL "reel. sanole" GOTO Red 

23B6 NEXT Q 

2387 KEY LABELS ON 

23B8 S_area_idle :G0T0 S_area_idle 

2389 Rounds I 

2390 KEY LABELS OFF 

2391 INPUT "Sanple dianeter , nn?" ,0ia 

2392 Sanplo_area-( PI/4 >♦( 010*2 ) 

2393 GOTO G.length 

2394 Red: 1 

2395 KEY LABELS OFF 

2396 INPUT "Sanole width, mn?" ,Wide 
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I 



2397 INPUT "Sanple thickness, nn?" , Thick 
2390 Sanple_aroa-Wide*Thick 

2399 G_lenqth: I 

2400 PRINT "Default qauQe length is ",6auqei" nn. Hit <RETURN> to accept" 

2401 INPUT "Gauge length, nn?" , Gauge 

2402 RETURN 

2403 Cltow^sfil.up! I nilOU r.ET UP 

2404 PRINTER IS I 



2405 Show_set _up_2 : 



SH0U_SET_UP_2 



240G 

2407 

2408 

2409 

2410 
241 1 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 
242B 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 
243B 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 
" K- 
244S 



PRINT USING "0,#" 

PRINT "Current set up is as follows:" 

PRINT " Sanple Paraneters:" 

IF Sanple_nrS-" " THEN 

PRINT " Sanple unnaned" 

ELSE 

PRINT " Sanple: ";Sanple_nr$ 

END IF 

IF Gauqe<;0 THEN 

PRINT " Gauqe lenqth is ";Gauqe;" nn" 

ELSE 

PRINT " No qauqe lenqth specified" 

END IF 

IF Oia<>0 THEN Sanple_area-( PI/4 )*( Dia"2 ) 

IF ThickOO AND Uide<>0 THEN Sanp le_area*Wide*Thick 
IF Sano le_area<>0 THEN 



IF Dia<>0 THEN 

PRINT " Using round sanp 

ELSE 

PRINT " Uslnq flat sanpl 

END IF 

PRINT " Sanple area is ";S 

ELSE 

PRINT “ Sanple dinensions 

END IF 
PRINT 

PRINT " Testing Paraneters:" 
PRINT " Crosshead speed" ;Str 

PRINT " Full-scale range of 

PRINT " Hold tina at finish 

IF Te_co-l THEN PRINT " Tens 

IF Te_co-2 THEN PRINT " Tens 

IF Te_co-3 THEN PRINT " Conp 

PRINT " Extensoneter/Strain 

IF Ex tensoneterS-"On" THEN 

PRINT " Ex tensonet er/S trai 

PRINT " Ext ensoneter/Strai 

PRINT " Strein shown will 

END IF 

PRINT ■ Tost tonporaturo is 



le with a dianeter of ";Dia;“ nn" 
e ";Uide;" nn wide X ";Thick;"nn thick’ 
anple_area;" nn"2" 
are inconplete" 



_rate j " nn/nin" 

load cell is set for " ; Fs_load_cel 1 ; " kN" 

" f Hold_t Ino f " nin" 
ion only test" 
ion/conpres s ion test" 
ression only test" 

Gage is " ; Extensone ter$ 

n gage conversion factor is ";Ex_convert 
n gage intercept is "iEx_inter 
be from "iExploi0i" to "lExolotnex 

" I Tos t _lenp I " deg C or " i Tes t _t enp+273 . 1 B i 



PRINT 
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start tine 



2447 PRINT * Plotting Parameters:" 

244B IF X_axls$-"Tlne , minutes" THEN PRINT " 
inish time ";T_end;’’ min" 

2449 IF X_axlsS-"Tlme , seconds" THEN PRINT " 

Inlah time "sT_endi" iac" 

2450 IF X_axlsS-"Elonqation , mm" THEN PRINT " 

I " mm Finish Elongation "|T_end|" mm" 

2451 IF X_flxl8!l-"ElonQ«tlon, Percent" THEN PRINT " 
starti" X Finish Elongation "iT^endi" X" 

2452 IF X_axls$-"5train" OR Xx-2 OR Xx-3 THEN PRINT 
tart I " Finish strain ";T_end 

2453 IF Y_axis$-"i;olts DC" THEN PRINT " Y-axis minimum is 
s and Y-axis maximum is ";Load_max;" volts" 

2454 IF Y_ax is$*"Mi 1 1 i vol t s DC" THEN PRINT " Y-axis minimum is "?Load_mini" 
millivolts and Y-axis maximum is " i Load_max ; " millivolts" 

2455 IF Y_axisS*"Load , kN" THEN PRINT " Load ranges from ",Load_mini" kN to 
"?Load_naxi" kN ( neg noens comoression ) " 

<is$-"5tress , MPa" OR Xx-2 OR Xx-3 THEN 

3 ";Load_maxi" MPa" 



Start time ";T_start;" min F 

Start time ";T_start;“ sec F 

Starting Elongation " ,T_start 
Starting Elnngetlon " ,T 
Starting strain 
' ;Load_min ; " 



,T_s 



volt 



2455 


IF Y_ax is$-"Stres s , MPa" 


OR Xx-2 OR Xx-3 THEN 


2457 


PRINT " 


Stress ranges from ",Load_mln;" MP 


2450 


PRINT " 


(neg means 


1 compression] 


r 


2459 


ENO IF 








2450 


RETURN 








2451 


Set_uD_menu: ! 








2452 


BEEP 2000,. 2 








2453 


BEEP 2100, .2 








2454 


OFF KEY 








2465 


GOSUB Show_set 


-UP 






2455 


ON KEY 1 LABEL 


"Sample 


Params" GOTO 


Samp le_id_s 


2467 


ON KEY 2 LABEL 


"Sample 


Params" GOTO 


Samp le_id_s 


24G8 


ON KEY 3 LABEL 


"Test 


Params" GOTO 


Test _params 


2459 


ON KEY 4 LABEL 


"Test 


Params" GOTO 


Test _params 


2470 


ON KEY 5 LABEL 


"Plott IngParams" GOTO 


Axes_uni t s 


2471 


ON KEY 5 LABEL 


"Plot t ingParams " GOTO 


Axes_uni t s 



2472 

2473 

2474 

2475 

2476 



ON KEY 7 LABEL 



•" GOTO Set_uo_idle 
•SETUP OK" GOTO Main^menu 

• THEN ON KEY B LABEL " lOENTIFYSAMPLE" GOTO Samole_id.s 



ON KEY 8 LABEL 
IF Samole_nr$-" 

ISEE LINE 2455 * 

IF ( Y_axls«-"Loed , kN" OR Y_axis«-"Stress , MPa" OR Xx-2 OR Xx-3) AND Fs^lo 
ad_cell-0 THEN 

2477 ON KEY 0 LABEL "NEED LOAOCELL" GOTO Load^call 

2478 BEEP 2000,.! 

2479 ENO IF 

2480 IF (( Y_axis$-"S tress , MPa" OR Xx-2 OR Xx-3) ANO Samo le_area-0 ) OR (X_axis$ 
-"Elongation, X" OR X_axis$-"Strain" OR Xx-2 OR Xx-3 ANO Gauge-0) THEN 

2481 ON KEY 8 LABEL “SAMPLE OIMEN." GOTO S_area_2 
24B2 END IF 

24B3 IF < X_axis$-"Elongat ion , mm" OR X_ax i s$-"Elongat ion , X" OR X_ax i sS-"Stra In 
" OR Xx-2 OR Xx-3) AND Str_rate-0 THEN 

2484 ON KEY 7 LABEL "X-head Speed" GOTO Rates 

2485 ON KEY 8 LABEL GOTO Rates 

2486 END IF 
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24G7 KEY L/^nELg ON 

2488 Sat jjp_ldlo :GOTO Sat_up_ldla 

2483 Test jparans: TEST_Pi^RAfiS 

2430 ON KEY I LABEL -ChanQe X-head V" GOTO Rates 

2431 ON KEY 2 LABEL “Change Load Cell" GOTO Load.cell 

2432 ON KEY 3 LABEL "Tension/Conoresslon" GOTO Tan_cofn 

2433 ON KEY 4 LABEL "Hold Tine" GOTO Holds 

2434 ON KEY 5 LABEL "Extens. Toggle" GOTO ExtogqleJ 

2495 FOR Q-6 TO 8 

243G ON KEY Q LABEL "" GOTO Te5t_pap_soin 

2497 NEXT Q 

2498 Tas t _par_80 in s GOTO Tas t _par_so i n 
2433 Extoggle_l : ! 

2500 GOSUB Ex^toggle 
“501 GOSUB Ex_cnv 
^502 GOSUB Ex jplt_cnv 
2505 GOTO Set_up_nenu 

2504 G_l_set_uo: ! 

2505 Uar*Gauge 

2506 PRINT "Chenqing geuqe length" 

2507 GOSUB Uar_change 
250B Gauqe-Uar 

2503 GOTO Sot_up_nenu 
2510 Start_t: I 
251 I Uar-T_start 

2512 PRINT "Changing nininun x-axis value:" 

2513 GOSUB Uar_change 

2514 T_start*Uar 

2515 Uar*T_end 

2516 PRINT "Changing naxinun x-axis value:" 

2517 GOSUB Uar^change 
25 IB T_end»Uar 

2519 T_ran-T_end-T_s tar t 

2520 Load^vals: 1 

2521 Uar*Load_nin 

2522 PRINT "Changing nininun y^axis value:" 

2523 GOSUB Uar_change 

2524 Load_nin*Uar 

2525 Uar-Load_nax 

2526 PRINT "Changing naxinun y-axis value:" 

2527 GOSUB Uar_changa 

2528 Loed_nex«Uer 

2529 Load_ran«Load nax-Load_nin 

2530 RETURN 

2531 Axes.unlts: * AXES.UNITS 

2532 GOSUB Axes.u 

2533 GOSUB Start^i 

2534 GOTO Set_up_nenu 

2535 Axesjj: AXESJU 

2536 KEY LABELS OFF 

2537 0^=^ KEY 



66 



I 



2538 

253G 

2540 

2541 

2542 

2543 

2544 

2545 
2545 

2547 

2548 
2548 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 
256) 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 
258) 

2582 

2583 

2584 

2585 

2586 

2587 

2588 



PRINT ■ 
ON KCY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 



Solact label for X-axla. Default Is tine in 



1 LADCL 



2 LABEL 

3 LABEL 

4 LABEL 

5 LABEL • 

6 LABEL •• 

FOR Q=7 TO 8 

ON KEY Q LABEL 
NEXT Q 

KEY LABELS ON 
Axes IdlosGOTO Axes Idle 



'Tine 
*Tine 
’Elong. 
'Elong. 
• True 
' Engr 



filnuloB" GOTO Tino_nin 
Seconds'* GOTO Tine_sec 
nn" GOTO Elong^nn 
X- GOTO Elongjpct 
Strain" GOTO Strain_axis 
Strain" GOTO Strain axis 



GOTO Axes idle 



T lno_n i n : I 

X_axis$-"Tlne , ninutes" 

GOTO Set_uo_Y_axis 
Tine_sec : I 

X_ax i s$*"T ine , seconds" 

GOTO Set _up_y_axi s 
Elong_nn : ! 

X_axis$-"Elongat ion , nn" 

GOTO Set_uo_Y_axl5 
Elongjpct : ! 

X_ax isS-**Elonqat ion , Percent" 

GOTO Set _uD_Y_ax 1 s 
Strain_ax i s J ! 

X_axisS-" Strain" 

IF Xx*2 THEN X_axisS-"Enqineer ing Strain" 

IF Xx»3 THEN X_axisS-"True Strain" 

Set_uD_Y_axis : I 
OFF KEY 

PRINT "Select label for Y-axis. Default is load" 

ON KEY 3 LABEL "Volts DC" GOTO Volts^y 

ON KEY 5 LA8EL "nV DC" GOTO Mv_y 

ON KEY 1 LABEL "Load, N" GOTO Load^y 

ON KEY 2 LABEL "T Stress MPa " GOTO Stress^y 

ON KEY 3 LABEL "E Stress MPa " GOTO Stre5s_y 

FOR Q-5 TO 8 

ON KEY Q LABEL "" GOTO Y_ax_idle 
NEXT Q 

KEY LABELS ON 



Y_ax_idle s GOTO Y_ax_idle 
Volta.y:! 

Y_axlsS-"Volts DC" 
RETURN 



Mv^y!) 

Y_axlsS-"Mllllvolts DC" 
RETURN 
Load_y : I 

Y_axls$*"Load , )cN" 
RETURN 
Stress_y J I 



ninutes" 
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2509 IF Xx-2 THEN Y^ax laJ- "Enqr Slroflfl MPa 
2590 IF Xx-3 THEN Y_axl s$-"Trua Stress MPa 
259! RETURN 

2592 Rates: ! 

2593 Uar-Str_rate 

2594 PRINT "Editing crosshead speed: give value in nm/nin** 

2595 GOSUB Var^change 
259G Str_rate*Uar 
2597 GOTO Sot_uD_r>enu 
2590 lloldn! I 

2599 nosun IlnlH-nl 
2500 GOTO Set_uo_fnenu 
2601 Holds!: I 

2502 PRINT "Change hold tine?" 

2603 GOSUB Yes^no 

2504 IF Ansuer$-"Y" THEN 

2505 Uar«Hold_t ine 

2506 GOSUB Uar^change 

2607 Hoi d_t ine-Uar 

2508 END IF 

2609 RETURN 
26!0 Ex^toqgle: I 

261! PRINT "Toggle ex tensonet er? " 

26! 2 GOSUB Ycs_no 

26!3 IF An5UerS-"N" THEN GOTO Ex^cnv 
25!4 IF E>:tensoneterS-‘’Off " THEN 
26!5 Extensonet er$-"0n" 

25! 6 ELSE 

26!7 ExlensoneterS*"Of f " 

26!8 ENO IF 
26! 9 RETURN 
2G20 Ex_cnv: • 

2621 IF Ea tensone terU- "On" TflEN 

2622 PRINT "Change conversion factor?" 

2623 GOSUB Yes_no 

2524 IF Flnsujer$-"Y" THEN 

2625 Uar*Ex_conver t 

2626 GOSUB Uarjchange 

2527 Ex_conver t -Uar 

2628 ENO IF 

2629 PRINT "Change intercept?" 

2630 GOSUB Yes_no 

263! IF Answer$-"Y" THEN 

2632 Uar*Ex_inter 

2633 GOSUB Uar_change 

2634 Ex_inter-Uar 

2635 END IF 

2636 ENO IF 

2637 RETURN 

2638 Ex jplt_cnv: 1 

2639 IF Extensoneter$-"On" THEN 



I 
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2640 


PRINT "Chena« nlnlnun strain Dlolted?” 




264) 


G05UB Yaa^no 




2C42 


ir An8uor$*"Y" IIICN 




2B43 


<Jar-Exolot0 




2G44 


G0SU8 l^ar_change 




2G45 


Exp lot0-Var 




2646 


END IF 




2B47 


PRINT "Change naxlnurn strain plotted?" 




2G48 


G0SU8 Yee^no 




2G49 


IF Anawer$-"Y" THEN 




2G50 


Uar-Exp lotnax 




2GG1 


GOSUB Uar^chanqe 




2GG2 


Exp lotwax-Uar 




2G53 


END IF 




2GG4 


Exp_con*( T_s t art-T_end )/< Exp lot 0-Exp lot max ) 


2B55 


Exp_int-T_5 tart -Exp lot 0*Exp_con 




2G5G 


END IF 




2G57 


RETURN 




2658 


Ten_con: ! 




2G59 


KEY LABELS OFF 




2660 


PRINT "TENSION, TENSION/COliPRESSION OR COMPRESSION TEST?" 


2661 


BEEP 2000,.) 




2662 


OFF KEY 




2663 


ON KEY I LABEL "TENSION" GOTO Ten only 




2664 


ON KEY 2 LABEL "TENSION" GOTO Ten_onlY 




2665 


ON KEY 3 LABEL "" GOTO Ten^tdle 




2666 


ON KEY 4 LABEL "TENSION/COMPRESS" GOTO Ten, 


_and_corn 


2667 


ON KEY 5 LABEL "TENSION/COMPRESS " GOTO Ten 


_and_con 


2668 


ON KEY 6 LABEL "" GOTO Ten_ldle 




2669 


ON KEY 7 LABEL "COMPRESS" GOTO Con_onlY 




2670 


ON KEY 8 LABEL "COMPRESS" GOTO Corn_only 




2671 


KEY LABELS ON 


- 


2672 


Ten_idle : GOTO Ten_idle 




2673 


Ten_only : Te_co* 1 




2674 


GOTO Set_up_nenu 




2675 


Ten_and_con t Te_co»2 




2676 


GOTO Set_up_nena 




2677 


Con_onlY i Te_co-3 




2678 


GOTO Set_up_fnenu 




2679 


Uar_change : ! 




2680 


INPUT "Type in desired value" ,Uar 




2681 


PRINTER IS ) 




2682 


PRINT Uari"Is this OK?" 




2683 


GOSUB Yes_no 




2684 


IF AnsuerS-"N" THEN Uar_change 




2685 


RETURN 




2686 


OFF KEY 




2687 


KEY LABELS ON 




2688 


ON KEY 1 LABEL ’ADO 100" GOTO Hunjnore I $$$$S$$$$$$SS$$S$$$ CHANGE LATER 


2689 


ON KEY 2 LABEL “ADD 10* GOTO Ten_nore 




2690 


ON KEY 3 LABEL *AOO 1* GOTO One_nore 
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2G9I ON KEY 4 LABEL "OK* GOTO Uar^roiurn 
ZG32 ON KEY 5 LABEL "SUBTRACT I" GOTO One^losa 



rm.T 

2B94 

2CGG 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 
271 1 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 
2740 

2742 

2743 

2744 

2745 
274G 



nri Krv n i Ann niuitiniYnv . r* r.nrn MmM pI i 
ON KEY 7 LABEL "MULTIPLYDY 10" 6010 liuU^lW 
ON KEY 0 LABEL "SET TO 0" GOTO Uar_?nro 
PRINTER IS I 

PRINT "Current value is ";Uar 
Uar_ldle :GOTO Uar_idlo 
Uar_return: I 

RETURN 
Uar^zaros ( 

Uar-0 

GOTO Uar_chanqe 
Hun^nore : 

Uar-Uar f I 00 
GOTO Uar_change 
Ten^more : I 
Uar*Uar+ I 0 
GOTO Uar_chanqe 
One_norel ! 

Uar-Uar^ I 
GOTO Uar_change 
Mult j3t J : ! 

Uar-Uar * . 1 0 
GOTO Uar__chanqe 
Mult J0: ! 

Uar-Uar • 1 0 
GOTO Uar_change 
One _les3 : I 
Uar-Uar-1 
GOTO Uar^chanqe 
GOTO Setjuo^nenu 

Set_uo_ok: I 5ET_UP_0K 

PRINT ' " 

PRINT "00 YOU WISH TO:" 

PRINT " - 

RUN A TEST 
<YES> 



on 



PRINT - 
PRINT " 

GOSUB Yes_no 

IF Ansuer$-"Y" THEN GOTO Inlt^daq 
IF An5uerS-*N" THEN GOSUB Plor^data 
Inlt_daq: ! 

CLEAR SCREEN 

PRINT • " 

PRINT "UHAT IS TIME FRAME FOR DATA COLLECTION 
PRINT " " 

OFF KEY 



‘““EDUCE DATA 
<N0>" 



7" 



(DURATION OF EXPERIMENT )?- 



2747 


ON 


KEY 


1 


LABEL " 


15 


MINUTES" GOTO 


2748 


ON 


KEY 


2 


LABEL - 


HALF 


HOUR " GOTO 


2749 


ON 


KEY 


3 


LABEL " 


ONE 


HOUR " GOTO 


2750 


ON 


KEY 


4 


LABEL " 


TWO 


HOURS " GOTO 
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2751 ON KEY 5 LABEL - FOUR 

2752 ON KEY B LAGEL “ EIGHT 

2753 ON KEY 7 LABEL " HALF 

2754 ON KEY 8 LABEL - FULL 

2755 KEY LABELS ON 

2756 Runn^idle : GOTO Runn_ldle 

2757 Tost _durat Ion : I 

2758 KEY LABELS OFF I 

2760 GOSUB Plot.set.up! 

2761 OUTPUT 709i"CLR- 

2762 OUTPUT 709; "USE 000“ 

2763 PRINTER IS 1 

2764 Ro_t es t : ! 

2765 AcQ.datasI * ACO_OATA 

2766 IF Uhich_pltr$-"CRT" THEN 

2767 Ponn$-"Data" 

2768 GOSUB Pen_5olect 

2769 END IF 

2770 FOR Q*l TO 4 

2771 ON KEY Q LABEL "TEST COMPLETE" GOTO Test_done 

2772 ON KEY Q+4 LABEL "RE-STARTTEST" GOTO Re_test 

2773 NEXT Q 

2774 KEY LABELS ON 

2775 T_total*T_end-T_s tart 

2776 T_convert*l lassunos x-axis is in seconds 

2777 IF X_ax i s$*'* Tine , nlnutes" THEN T_conver t ■ 1 /60 

277B IF X_axi s$*"Elonqat ion , nn" THEN T_convert “Str_rate/60 

2779 IF X_ax 1 s$-"Elonqat ion , %" THEN T_convert*( Str_rate/Gauqe )*( 1 00/60 ) 

2700 IF X_ax isJ-"Strain" THEN T_convert-< Str_rata/G0 )/GauQO 

2781 IF X_ax i s$*"Enqineer inq Strain" THEN T_convert*< Str_rat e/60 )/Gauqe 

2782 IF X_ax i s$-"True Strain" THEN T^convert •( Str_rate/60 )/Gauqe 
2703 L_convert*l lassunes DCU is output 

2784 IF Y_ax i sS* "Mi 11 ivol t s OC" THEN L_convert* 1 000 

2785 IF Y_axi s$*"Load , kN" THEN L_conver t *Fs_load_cel 1/ 1 0 

2786 IF Y_ax i s$*"Stress , MPa“ THEN L^conver t ■< Fs_load_cel 1 » 1 00 >/Sanp le_area 

2787 IF Y_axlaS“"Enqr Stress MPa " THEN L^convar t “< Fs_load_ce 1 1 * 1 00 >/S«no la 
area 

2788 IF Y_ax i s$*"True Stress MPa " THEN L_convert-( Fs_load_cel 1 » 1 00 >/Sanp le 
area 

2709 KEY LABELS OFF 

2790 INPUT "Hit <RETURN> when ready to proceed ." ,Uhich$ 

2791 KEY LABELS ON 

2792 T_0“TIMEDATE ITlne Is neasured in seconds then converted to desired uni 

2793 L0R6 5 

2794 FOR 1-0 TO 5000 

2795 REPEAT 

2796 T_i-< TIMEDATE-T_0 ) *T_convert 

2797 UNTIL T_i>-< T_total/5000 )•< I) 

2798 Straln(I)-T_l 

2799 OUTPUT 709i "CONFMEAS DCU,214" 

2800 ENTER 709iStroa8<I) 



HOURS " GOTO Tea t _dura t ion 
HOURS " GOTO Tee t_durat ion 
DAY " GOTO Tes t_durat Ion 
OAY " GOTO Test duration 



FEED THIS LATER TO SET UP NUMBER, 
ANO FREQUENCY OF DATA POINTS 
ANO FREQUENCY OF DATA COLLECTION 
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2801 Stres5( I )*Stress< I )*L_convert 

2802 PLOT Strain( I ) ,Stre55(I ) 

2803 IF £xtansonoter$*"On’’ THEN 

2804 OUTPUT 708rCONFMEA5 0CU,215’‘ 

2005 ENTER 709i Ext«ns( I ) 

2O0G L/.toMB< I )-i:xtofin( n-r/._cnnvrtrHrx_liiirtr*inONUrnr^. TO nrRAfN UAl.UrO 

2007 r^plol-rxtnnn( T )*Fxn ron^Exp IntlCONUERTG STRAIN TO ri.OTARlE UALUES 

2808 MOUE Explot ,Stress< I ) 

2809 LABEL USING -K-;-*- 

2810 END IF 

281 1 NEXT I 

2812 Tesl^donet ! 

2813 Njpointa*! 

2815 OFF KEY 

28 IG FOR Q-1 TO 4 

2817 ON KEY Q LABEL ” ^ GOTO Dumper 

2810 ON KEY Q + 4 LABEL "Main Menu" GOTO Maln^tnenu 

2819 NEXT Q 

2820 T_d_idle:GOTO T_d_idle 

282 1 Pen_select : * 

2822 ON KEY 1 LABEL "Pen 1* GOTO PI 

2823 ON KEY 2 LABEL "Pen 2“ GOTO P2 

2824 ON KEY 3 LABEL "Pen 3" GOTO P3 

2825 ON KEY 4 LABEL "Pen 4" GOTO P4 

2826 ON KEY 5 LABEL “Pen 5“ GOTO P5 

2827 ON KEY 6 LABEL “Pen 6“ GOTO P6 

2828 ON KEY 7 LABEL "Drawing "IPennS GOTO Pen^select _idl e 

2023 ON KEY 8 LABEL "Drawing "lPenn$ GOTO Panose lect _l die 

2830 KEY LABELS ON 

2831 BEEP 2000,.! 

2832 Pen_5elect _idle :GOTO Pen^select _i die 

2833 PI :PEN 1 

2834 GOTO Pen_return 

2835 :;PEN 2 

283c ;0T0 Pen_raturn 

2837 3:PEN 3 

2838 GOTO Pen_return 

2839 P4:PEN 4 

2840 GOTO Pen_return 

2841 P5:PEN 5 

2842 GOTO Pen_return 

2843 PS:PEN B 

2844 Pen_return:l 

2845 KEY LABELS OFF 
284G RETURN 

2847 DUMPER 

2848 KEY LABELS OFF 

2849 OUMP OEUICE IS 701 

2850 OUTPUT KBDrN“i 

2851 GOTO Main menu 
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FILE_ERR 



2079 Flie_err: I 

2000 PRINTER IS 1 

2001 PRINT USING 

2002 DEEP 2000, .3 

2003 IF ERRN-70 OR ERRN-05 THEN 

2004 PRINT "WARNING you ara InttlallzlnQ this disc. All data will be erased. 

2005 INPUT "Hit <RETURN> to continue" ,Uhich$ 

2000 INITIALIZE ":CS00,700 J- 

2007 ENO IF 

2888 PRINT "Error In file name select Ion" ,ERRN ,ERRM$ 

2889 GOTO Data_save 

2090 Plot.set.uo: PL0T_SET_UP 

2091 PRINTER IS 1 
2892 OFF KEY 

2093 PRINT "Do you want to use the Plotter?" 

2094 GOSUB Yes_no 

2895 OUTPUT KB0;"K"; 

2896 IF Answer$-"Y" THEN INPUT "Put paper in the plotter then hit sRETURN>" ,Uhl 
ch$ 

2897 GINIT 

2090 GRAPHICS ON 

2099 IF Answer$-"Y" THEN 

2900 PLOTTER IS 705/HP6L" 

2901 UIEUPORT 0,125,0,100 

2902 Uhlchjpl tr$-"Plot ter " 

2903 Penn$-"Axes" 

2904 GOSUB Pen.select 

2905 ELSE 

2906 PLOTTER IS CRT INTERNAL" 

2907 Uhichjpltr$-"CRT" 

2908 UIEUPORT 0,120,26,100 

2909 END IF 

2910 Load_ran*Load_rnax-Load_nin 

291 1 T_ran-T_end-T_s tar t 

2912 WINDOW T_start - . 1 *( T_ran ) ,T_end ,Load_nln-. 1 • Loader an ,Load_nax . 1 3 'Load _r an 

2913 CLIP T_s tar t ,T_end ,Load_nln ,Load_rna:< 

2914 GRID T.ran/10,Load_ran/r0,T_start ,Load.nln,l ,1 

2915 CLIP OFF 
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2916 CSIZE 3 

2917 LORG 4 

2918 MOVE ( T_5tart^T_end )/2 ,Load_fnax4-.0O»Load_ran 

2919 L/«iBEL USING "K " » Sample_nr$& “ " 8.VALS < Tes O amp )& " C" 

2920 LORG 6 

2921 FOR I-T^start TO T^end STEP ( T.start-T^end )/< -5 ) 

2922 MOVE I ,Load_tnin- . 025*Load_ran 

2923 LABEL USING "KM 

2924 NEXT I 

2925 MOVE .5»( T^start fT_end ) ,Load_nln-.07*Load_ran 
2925 LABEL USING "K";X_axl5$ 

2927 LORG 8 

2928 FOR I-Load_nln TO Load_naY STEP Load_ran/10 

2929 MOVE T_start-( .01 •< T_ T_start))J 

2930 LABEL USING "K”?! 

2931 NEXT I 

2932 LORG 4 

2933 MOVE T_start-< .07*< T_end-T_3tart ) ) ,Load_ran/2^Load_nin 

2934 DEG 

2935 LOIR 30 

293G LABEL USING “K " » Y_axi s $ 

2937 LOIR 0 

2938 LORG 4 

2939 IF E.<tanaonatar$-”On” THEN 

2940 E:<P_ran»Exp lotnax-ExD lot 0 

294 1 CLIP T_3 tart f . 1 *T_ran ,T_end ,Load_nax ,Load_nax+ . 1 *Load_ran 

2942 AXES T_ran/ 1 0 ,Load_ran/20 ,T_s tart ,Load_nax 

2943 CLIP OFF 

2944 FOR I-T_start TO T_and STEP T_ran/10 

2945 MOVE I ,Load_nax+Load_ran« . 03 

2946 LABEL USING “K " ; < I-Exp_int )/Exp_con 

2947 NEXT I 

2940 END IF 

2949 RETURN 

2950 Uhlch^nsu: I UlllCIl^MSU 

2951 OFF KEY 

2952 MASS STORAGE IS : CS80 ,700 ^O” ! HARO DRIVE FOR 2732A25753 

2953 ! OR FLOPPY FOR 2702A21048 

2954 CLEAR SCREEN 

2955 PRINT "Do you want to store/recall data to/fron tha HARD DRIVE or 3-1/2 FL 
0PPY7" 

2956 PRINT " " 

2957 PRINT "***<YES> FOR HARD DRIVE <N0> FOR FLOPPY*****" 

2958 GOSUB Yes.no 

2959 IF Ansuer$-"Y" THEN GOTO Hard_nsu 

2960 CLEAR SCREEN 

2961 PRINT -Uhlch UP ayotan are you ualng? (COOES ARE MACHINE DEPENDENT)" 

2962 PRINT " “ 

2963 PRINT "***<YES> IF MSU tl IN THE INSTRON ROOM, <NO> FOR MSU 42*****" 

2964 PRINT " (SERIAL 4 2732A25753 ) (SERIAL 4 2702A21048) 
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2879 


File_err: | 




2880 


PRINTER IS 1 




2881 


PRINT USING "0,t- 




2882 


BEEP 2000,. 3 




2803 


IF ERRN-7B OR ERRN-05 


THEN 


2084 


PRINT "UrtnNING you 


are initializinq this disc. All 


2005 


INPUT "lilt (RETURN) 


to cont Inuo" ,UhlchiB 


2QQQ 


INITIALIZE "iCSO0,700,r 


2007 


END IF 




2008 


PRINT "Error in file 


name so loct ion" ,ERRN ,ERRM$ 


2889 


GOTO Oata_save 




2890 


Piot_5et_up: !»****#*# 





2891 PRINTER IS 1 
2032 OFF KEY 

2893 PRINT "Oo you want to use the Plotter'?" 

2834 GOSUB Yes^no 
2095 OUTPUT KG0?”K-; 

289G IF Answer$-"Y" THEN INPUT "Put oaoer in the plotter then hit <nETURN> " ,Uh 1 
ch$ 

2837 GINIT 

2898 GRAPHICS ON 

2893 IF Answer$-"Y" THEN 

2900 PLOTTER IS 705/HPGL" 

2901 UIEUPORT 0 J25 ,0 J00 

2902 Which _pitr$-"Plotter " 

2903 Penn$-"Axes" 

2904 GOSUB Pen_select 
2305 ELSE 

230G PLOTTER IS CRT / INTERNAL" 

2907 Uhichjpltr$-"CRT" 

2908 UIEUPORT 0J20,2GJ00 

2909 ENO IF 

2910 Load_ran“Load_nax-Load_Min 

2911 T_ran*T_end-T_star t 

2912 UINOOU T^start-. 1 *( T^ran) ,T_end ,Load_nin - . 1 » Loader an Xoad_na:<f . 1 3 » Loader an 

2913 CLIP T^start »T_end ,Load_win ,Load_nax 

2914 GRID T_ran/ 1 0 ,Load_ran/ 1 0 ,T_start ,Load jnin J , 1 

2915 CLIP OFF 
291G CSIZE 3 
2917 LORG 4 

291 B MOUE ( T_start+T_end )/2 »Load_fnax-i-,08*Load_ran 

2919 LABEL USING "K" i Sanole_nr$&" "&UAL$( Tes t_temp )&" C" 

2920 LORG 6 

2921 FOR I-T_start TO T.end STEP ( T.start-T.end )/( -5 ) 

2922 MOUE I ,Load_nin- . 025*Load_ran 

2923 LABEL USING "K"?I 
2324 NEXT I 

2925 MOUE .5*( T_start+T_end ) ,Load_nin-.07»Load_ran 
292G LABEL USING "K-;X.Jxi5S 
2927 LORG 8 
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2928 FOR I*Load_nln TO Load_nax STEP Load_ran/t0 

2929 MOUE T_srart-( .01 •(T^end-T^start ) ) 

2930 LABEL USING "K";I 

2931 NEXT I 

2932 LORG 4 

2933 MOUE T_start-( .07*( T_end-T_starl ) ) ,Load_ran/2^Load_nin 

2934 OEG 

2935 LOIR 90 

293S LABEL USING -K";Y.axl5$ 

2937 LOIR 0 
293B LORG 4 

2939 If CAton5omatorU-"Ofi" THEN 

2940 C/sp _r*rtn-Exp I otnnx-Exn lot0 

2941 CLIP T_start + . 1 *T_ran ^T_end ,Load_max ,Load_riax+ . 1 *Load_ran 

2942 AXES T_ran/ 1 0 ,Load_ran/20 ,T_s t art ,Load_nax 

2943 CLIP OFF 

2944 FOR I*T_start TO T_end STEP T_ran/10 

2945 MOUE I »Load_nax+Load_ran» . 03 

294G LABEL USING "K" ; < I-Exp^int )/E.vo_con 

2947 NEXT I 

2943 ENO IF 

2949 RETURN 

2950 Uhtch_n3u: I UNICH_MSU 

2951 OFF KEY 

2952 MASS STORAGE IS " : CS80 ,700 ,0" i HARO ORIVE FOR Z732A25753 

2953 ! OR FLOPPY FOR 2702A21O48 

2954 CLEAR SCREEN 

2955 PRINT "Oo you want to atore/recall data to/Fron the HARO ORIUE or 3-1/2 FL 

OppY?- 

2955 PRINT " 

2957 PRINT -**»<YES: FOR HARD ORIUE <NO> FOR FLOPPY “ 

2958 GOSUB Yes_no 

2959 IF An5wer$-"Y" THEM GOTO Hard_nsu 

2960 CLEAR SCREEN 

29GI PRINT "Uhtch HP system are you using? (COOES ARE‘MACniriE DEPEMOEMT)*’ 

2952 PRINT “ " 

2953 PRINT "•»^»<YES> IF MSU 41 IN THE INSTRON ROOM, <NO> FOR MSU 42**»**" 

2954 PRINT " (SERIAL t 2732A25753 ) (SERIAL 4 27O2A21048 ) 

2955 GOSUB Yes_no 

2955 IF Ansuer$-“Y" THEN MASS STORAGE IS ** :CS80 ,700 ,0" 

2967 IF Answer$-"N- THEN MASS STORAGE IS - : CS80 ,700 , 1 " 

29SB KEY LABELS OFF 

2959 RETURN 

2970 Hard^nsu: I 

2971 CLEAR SCREEN 

2972 PRINT "Which HP system are you using? (COOES ARE MACHINE OEPENOENT)" 

2973 PRINT * " 

2974 PRINT "»»»<YES> IF MSU 41 IN THE INSTRON ROOM, <N0) FOR MSU 42*****" 

2975 GOSUB Yes.no 

2975 IF Ansuer$-"Y" THEN MASS STORAGE IS " : CS80 ,700 , 1" 
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2977 

rnvn 

297H 

29U0 

r.oni 

2982 

2983 

2984 
29B5 
2986 
29B7 
29BB 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 
5005 
3006 
5007 

3008 

3009 

3010 
301 I 

3012 

3013 

3014 

3015 

3016 

3017 
3016 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 



IF An5uor$-*‘N- THEN MASS STORAfiE IS " tCSHO ,700 .0" 
KCY I.AMCLri 01 r 

PFniUM 
Yoa_noi I 
OFF KFY 

KEY LABELS OFF 
FOR Q-1 TO 4 

ON KEY Q LABEL "YES- GOTO Yosa 
ON KEY Q^-4 LABEL "NO" GOTO Noo 
NEXT Q 

KEY LABELS ON 

Yes_no_i die :GOTO Yes_no_idle 
Yes 5 : An8uer$-"Y" 

RETURN 

Noo : Ansuer$-"N" 

RETURN 

Analyze^data : ! 

PRINTER IS I 

PRINT "Oata analysis section not written yet" 

BEEP 



GOTO Main_nenu 
Oat a_red_nenu : ! 

I THIS SECTION IS FOR MAKING A "CORRECTEO" TRUE/ENGR STRESS- 
I STRAIN CURUES DATA REDUCTION 



orr 

ON 


■ KEY 
KEY 1 


LABEL 


» 


INPUT 


TYPE " GOTO 


Input _type 1 


ON 


KEY 


n 


LABEL 


• 


SLOPE 


OKAY? " GOTO 


Slooe_ok ! 


ON 


KEY 


3 


LABEL 


• 


PLOT 


ENGR - GOTO 


Corr_enqr 1 


ON 


KEY 


4 


LABEL 


" 


PLOT 


TRUE " GOTO 


Corr_true ! 


ON 


KEY 


5 


LABEL 


" 


FILE 


OATA - GOTO 


Oata_save2 ! 


ON 


KEY 


6 


LABEL 


• 


MORE 


CURUES?" GOTO 


More jp lot s 1 


ON 


KEY 


7 


LABEL 


•* 


MAIN 


MENU " GOTO 


Main^nenu ! 


ON 


KEY 


8 


LABEL 


• 


MAIN 


MENU - GOTO 


Main_nenu 1 


KEV 


' LABELS ON 











idle 



SLOPE OK 



Oata _red_l d lo : GOTO Oata_rod, 

Slooe_ok: I 
GOSUB Yea_no 
IF An3wer$-“Y" 

IF Answers* 

Inout _type *. I ^ 

PRINTER IS I 

PRINT "Select method of designating the points to calculate the slope" 
ON KEY I LABEL "Mouse" GOTO Mousejts I 
"Mouse" GOTO MousejptsI 

Keys" GOTO CursorjptsI 
Keys" GOTO Cursor jptsi 
Inputs" GOTO Xy_ptsl 
inputs* GOTO Xyjpts! 

GOTO Cursor_pt s ! 



ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 



THEN GOTO Oata_red_nenu ! CHANGE TO CORR^ENGR??? 
"N" THEN GOSUB Plot_data 

INPUT TYPE 



LABEL 
LABEL "Cursor 
Cursor 



LABEL 
LABEL "X-Y 
LABEL "X-Y 
LABEL 



"OTHER- 

ON KEY 8 LABEL "OTHER" GOTO Cursor_ptsl 
Oes ig_idle :GOTO Oesig^idle 
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3028 Mouse _j3t5?l Uses Mouse to designate points to calculate slooe 

3029 I Fill in lines to use Mouse later 
30.30 nOrO ^olve ,nlnr»n 

3031 Cursor jjIsjI Uses Cursor to designate points to calculate slope 

3032 KEY LAGELS OFF 

3033 TRACK 3 IS ONI initializes cursor routine 

3034 GRAPHICS INPUT IS KBO, "ARROW KEYS"! specifies the input device 

3035 SET LOCATOR Scalene Hi _ y+Lou_y )/2 I initializes location of cursor 
303B FOR Q-l TO 4 

3037 ON KEY Q LABEL "Point 1 Baseline" GOTO Locator_spin 

3038 ON KEY Q+4 LABEL " <RETURN>uhen loc" GOTO Locator^spin 

3039 NEXT Q 

3040 KEY LABELS ON 

3041 Loca tor_sD In : I 

304: ■'RG 5 

3043 jITIZE Tl ,LI I location of cursor when <RETURN) pressed 

304^ ;E Tl ,LH places on location & beeps to let you 

3045 BEL USING "K";-»" 

3046 d£EP 2000,.! 

3047 FOR Q-l TO 4 

3048 ON KEY Q LA8EL "Point 2 Baseline" GOTO Locat or^so in2 

3049 ON KEY 0+4 LABEL " <RETURN>when loc" GOTO Locator_apin2 

3050 NEXT Q 

305! KEY LABELS ON 

3052 Loca t or __sp 1 n2 t * 

3053 L0R6 5 

3054 DIGITIZE T2,L2! location of cursor when 'RETURN) pressed 

3055 MOUE T2 ,L2 ! places "0" on location & beeps to let you 

3058 LABEL USING "K" ; “0" 

3057 BEEP 2000,. 2 

3058 BEEP 2000 I 

3059 FOR Q-l TO 4 

3080 ON KEY 0 LABEL "CUTOFF POINT " GOTO Locator.sp IniJ 

3081 ON KEY Q+4 LABEL " <‘=^'^"RN>uhen loc" GOTO Locator_spin3 

3082 NEXT Q 

3083 KEY LABELS ON 

3084 Locator_spln3 : • 

5065 LORG 5 

3088 DIGITIZE T9,L9! THIS IS END OF GOOD DATA 

3087 MOUE T9,L9 

3088 LABEL USING "K"?"!" 

3089 BEEP 2000,. 2 
3070 BEEP 2000,.! 

307! GOTO Slope_solve 

3072 XYJpts:! Uses TIME-LOAD data to designate points to calculate slope 

3073 INPUT "WHAT IS COORO FOR FIRST POINT ( X ! ,Y! )7" ,T! ,L! 

3074 INPUT "WHAT IS COORO FOR 2nd POINT ( X2 ,Y2 )7" ,T2 ,L2 

3075 INPUT "WHAT IS LAST GOOD DATA POINT (JUST THE TIME ONLY)?", T9 

3078 GOTO Slope_solve 

3077 Slooe^so Ive t ! Solves egn of line y-Mx+b; y — > LOAD x — > Tine 
307B Slope-<L2-L! )/<T2-T! )l Solves for slope M 

3079 P0-L2-< Slooe»T2 ) ! Solves for y-intercept 
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Solves for X~interceot 



3080 T0— P0/Slopel 

3001 I Y - M (X) +8 

3082 I P - SLOPE (TIME) + P0 

3083 GOTO 51ope_draw 

3084 SloDO_draw:l Draws line on top of LOAO-TIME curve 

3005 LINE TYPE 1 

3088 M0V;E T0,0 
3007 L0R6 5 

3000 Li^BEL USING '•K-r*” 

3089 DRAW T0,0 

3090 DRAW (M.5*L2-P0)/Slopo) J.5-L2 

3091 LINE TYPE I 

3092 GOTO Data_red_nenu 



3093 


Corr_engr : 1 #♦*»»»***♦ 


**** C0RR_ENGR * 


3094 


PRINT "Do YOU want an TRUE or ENGR stress vs strain plot?" 


3095 


PRINT -»**<YES> FOR 


TRUE STRESS/STRAIN <NO> ENOR STRESS/STRAIN” 


3096 


GOSUO Yes_no 




3097 


IF Answer$-'‘Y" THEN 


GOTO Copp_tpue 


3098 


Ee-2 




3099 


GOTO Flaq_enqr! 




31 00 


BEEP 




3101 


Corr_true: 1 *»»*#»#*♦ 




3102 


Xx-3! 


THIS MEANS TRUE STRES5/STRAIN AXES LABELS TO PLOT 


3103 


Ee*3 




3104 


Flaq_engr: ! 




3105 


IF Ee-2 THEN Xx-2! 


THIS MEANS ENGR STRESS/STRAIN AXES LABELS TO PLOT 


3108 


Xhead_spd=*S tr_ra to 




3107 


BEEP 




3100 


PRINT " " 




3109 


PRINT " 


CALCULATIONS IN PROGRESS - PLEASE UAIT FOR BEEP M 


3110 


Tel-0 




311 1 


Del t a_t ine»0 




31 12 


Di 5ol*0 




3113 


Strain jnax-0 




31 14 


5tress_nax-0 




3115 


Tt0-INT(T0) 




31 18 


FOR I-Tt0 TO 5000! 


PRIOR TO T0 WILL BE ZEROS 



3H7 To-Strain(I) 

3 n 0 Pp-Stres s( I ) 

3M9 IF Td>T9 then GOTO Flaq_ono! ENO OF GOOD DATA 

3120 Tel-(Pp-P0)/Slooe 

3121 Del ta_t ine»Tp-Tel 

3122 Dlspl-Oel ta_t lne»Xhead_spd 

3123 5 tress_enqr( I )•( 1 000*Pp )/Sarnple_area I KILO TO CHANGE KN TO MPa 

3124 Straln_engr ( I )»Dlspl /Gauge 

3125 IF Straln^engr( I )>S train jnax THEN Straln_riax*Straln_engr( I ) 

312B IF Stress_engr( I )>Stressjnax THEN Stress_max-Stress_engr ( I ) 

3127 Stressi I )-Stress_engr( I )*( 1 +Straln_enqr( I ) ) I THIS IS REALLY 

3128 StrainCI )-L06( l+Straln_engr(I))l ” TRUE STRESS i STRAIN 

3129 IF 5train(I)<0 THEN Straln(I)-0 
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3131 I IF Straln( I )>Straln_nax THEN S tratn_nax-Strain( I ) 

3132 ! IF Stre55< I )>Stre33_nax THEN Stre33_fnax»S trc33 ( I ) 

3133 Zz-I 

3134 Zz2-5000-Zz 

3135 IF Zzz-5000 OR Zzz-4000 OR Zzz-3000 OR Zzz-2000 OR Zzz-1000 THEN 

31 3G PRINT Zzzl COUNT DOWN - TELLS HOU LONG UNTIL DONE 

3137 END IF 

3138 NEXT I 

313H 7777-71 TFIIS TMF MAX UAI UF FOR AXFS 

3 M M 1 lag_onn : I 

3141 RFFP 

3142 IT_ond-5traln_naxM .2 GIUE5 STRANGE 

3143 !Load_nax-Stre33_nax • 1 .2 UNITS ON AXES 

3144 GOSUB Plot_data 

3145 PRINT " 00 YOU WISH TO SAUE THIS PLOT EITHER ON DISK OR HARO ORIUE?" 

31 4B PRINT " <YE5> <N0>" 

3147 GOTO Yc3_no 

3148 IF AnswerS-"Y- THEN GOSUB 0ata_3ave2 

3149 More_plots: ! 

3150 PRINT - 00 YOU WISH TO ANOTHER PLOT SUPER IMPOSEO ON THIS PL- " “ 

3151 PRINT ■* 

3152 PRINT " <YES> <N0>" 

3153 GOTO Yes_no 

3154 IF AnswerS-"Y- THEN 

5155 01d_axe5-3! USE SAME AXES WHEN PLOTTING 

315B GOSUB Re_data 

3157 GOSUB Plot_data_2 

3158 END IF 

3159 PRINT " 00 YOU WISH TO A SEPERATE , NEW PLOT?" 

3160 PRINT " — " 

31B1 PRINT - <YES> <NOV 

3162 GOTO Yes^no 

31G3 IF Answers-"?" THEN 

31 B4 01d_axos-2» USE NEU AXES UHEN PLOTTING 

31B5 GOSUB Plot^data 

31BB ENO IF 

31B7 IF Answer$-"N" THEN GOTO Oat a.red jnenu 

31B8 Oata_save2: 1 0ATA_SAUE2 

31B9 GOSUB Uhichjnsu 

3170 OFF KEY 

3171 ON KEY 1 LABEL "STORE DATA" GOTO 0ata_save2J 

3172 FOR 0-2 TO 7 

3173 ON KEY Q LABEL " " GOTO Data_sava2_ldla 

3174 NEXT Q 

3175 ON KEY 8 LABEL "MAIN MENU" GOTO Main^nenu 

3176 KEY LABELS ON 

3177 Oata_save2_ldle :GOTO Data_save2_ldle 

3178 Oat a_save2J : * 0ATA.SAUE2J 

3179 ! INPUT "File to be used? Don’t type suffix B ,C ,orZ . " ,Fl 1 e^naneS 

3180 ON ERROR GOTO Flle.err 
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3ini 

3102 

3183 

3184 

3t85 

318G 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

319B 

3197 

3198 

3199 

3200 

3201 

3702 

3203 

3204 

3205 



7r7-7r«in 

I NEED TO MAKE THIS FILE THE ENGR AND TRUE ALSO 

CREATE BOAT "E1"J, 50001 FILE FOR ENGR STRESS/STRAIN 

CREATE BOAT “E2"J,5000! CHANGE FROM "E2" TO FILENAME&E2 

ASSIGN SPathI TO ’‘El " 

ASSIGN 0Path2 TO "E2" 

OUTPUT OPathl ;Straln_engr( • ) I IT GETS STUCK HERE 
OUTPUT 8Path2 » Strea a_enQr( * ) 

ASSIGN ©Pathl TO * 

ASSIGN 0Path2 TO • 

CREArC DUAf "Tl’M ,50001 FILE FOR TRUE STRESS/STRA IN 

CREATE BOAT " T2 . 1 ,5000 I THIS WAS ADDED IN LATER? ! 7 

ASSIGN ©Pathl TO "TT! IT SAUED A T1 FILE!!!!!!! 

ASSIGN 0Path2 TO "T?" 

OUTPUT ©Pathl ;Strain( • ) 

OUTPUT 0Path2;Streaa( * ) 

ASSIGN ©Pathl TO * 

ASSIGN 0Path2 TO • 

OFF ERROR 

GOTO Da t a_red_nenu 
END 

Sim ClinM.jnrl Af .i( • ) J CHANGER 

FOR 1*1 TO 5000 
Ara( I )*Ara( I )*F 
NEXT I 
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True. Stress, MPa 



AiMM.NDix n. 'HUH, sl UKss VS. rmii: si rain ( uuvi; 




True Strain 



Figure 25. True stress vs. true strain, sample A, 10 vol. pet. Alumina, 400°C 
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PERCENT ELONGATION 



APPENDIX C. DUCTILITY VS. TEMPERATURE CURVES 



ALG061 10% ALUMINA 350A/^50R 



DUCTILITY OF SAMPLE A 




Figure 26. Ductility vs. temperature, sample A, 10 vol. pet. Alumina. 
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I 



I 



PERCENT ELONGATION 



ALGOGl 15% ALUMINA 350A/250R 

DUCTILITY OF SAMPLE C 



o 

r^ 



o 

CD ' 



O 



O 




o 

CD 



O 

C\2 



O 



LEGEND 

□ STRAIN RATE 6.7E-3 

o strain Rate 6.7E-2 



o -] 

250 



“T“ 

300 



~i \ I r~ 
350 400 450 500 

TEMPERATURE (C) 



Figure 27. Ductility vs. temperature, sample C, 15 vol. pet. Alumina. 
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550 



I 



PERCENT ELONGATION 



AL6061 10% ALUMINA 350A/350R 

nUCTIUTY OF SAMFI.F F 




Figure 28. Ductility vs. temperature, sample F, 10 vol. pet. Alumina. 
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PERCENT ELONGATION 



AL6061 15% ALUMINA 350A/350R 

DUCTILITY OP SAMPLE (; 




Figure 29. Ductility vs. temperature, sample G, 15 vol. pet. Alumina. 
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PERCENT ELONGATION 
60 80 100 120 140 160 180 200 



AL6061 10% ALUMINA 350A/350R 

DUCTILITY OF SAMPLE F 




Figure 30. Dudlllly vs. (cmpcr.iture, sample F, 10 vol. pet. Ahimin.'). 
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PERCENT ELONGATION 

60 80 100 120 140 160 



AL6061 15% ALUMINA 350A/350R 

DUCTILITY OF SAMPLE G 



LEGEND 

g ().7E-3 STRAIN RATEjlI!R__ANNEA[,) 



O 6.7E-2 STRAIN RATE (1 HR ANNEAL) 


A 6.7E-3 ” " 1 


[1/2 HR anneal; 

1/2HRANNEA^^ 


[ 



:f^* 

■•f 




1 1 I 1 1 1 \ 

150 200 250 300 350 400 450 500 550 

TEMPERATURE (C) 



Figure 31. Ductility vs. temperature, sample G, 15 vol. pet. Alumina. 
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STRENGTH UTS (MPA) 



fl* 

APPENDIX D. ULTIMATE STRENGTH VS. TEMPERATURE CURVES 



AL6061 10% ALUMINA 350A/250R 

UTS SAMPLE A 




Figure 32. Ultimate strength vs. temperature, sample A, 10 vol. pet. Al umina. 
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STRENGTH UTS (MPA) 



AL6061 15% ALUMINA 350A/250R 

UTS SAMPLE C 



o 




Figure 33. Ultimate strength vs. temperature, sample C, 15 vol. pet. Alumina. 
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STRENGTH UTS (MPA) 



ALGOGl 10% ALUMINA GGOA/GGOR 

UTS SAMrM.K E 




, Figure 34. Ultimate strength vs. temperature, sample F, 10 vol. pet. Alumina. 
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STRENGTH UTS (MPA) 



AL6061 15% ALUMINA 350A/350R 

UTS SAMPLE G 




Figure 35. Ultimate strength vs, temperature, sample G, 15 vol. pet. Alumina. 
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STRENGTH UTS (MPA) 

60 60 100 120 140 160 180 200 



AL6061 10% ALUMINA 350A/350R 

UTS SAMPLE F 




Figure 36. Ultimate strength vs. temperature, sample F, 10 vol. pet. Alumina. 



93 



I 



STRENGTH UTS (MPA) 

100 150 200 250 



AL6061 15% ALUMINA 350A/350R 

UTS SAMPLE G 




TEMPERATURE (C) 

Figure 37. Ultimate strength vs. temperature, sample G, 15 vol. pet. Alumina. 
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